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الوحده الاولى :- 
عاق الک ونم ول( بلبرش م 


CONSOLE APPLICATION 


ان الحمدلله نحمده ونستعینه ونستهدیه ونعوذ بالله من شرور انفسنا وسیئات اعمالنا انه من 
هده الله فلا مضل له ومن یضلل فلا هادی له اما بعد :- 

ماهو الكونسول ابليكيشن ؟ يعتبر الكونسول من اهم التطبيقات نوعيا التى لايمكن 
الاستغناء عنها فى البرامج الكبيره وذلك لكبر اهميتها فى البرمجه تحت الدوس حيث انه 
یمکننا بها انتاج برامج متكامله تحت الدوس بالكونسول . 


کبفیه انشاءه ۰۔- 


قم بفتح الفیجول دوت نت تم اختار مشروع جدید Ûۃpş Console Application‏ 
ولا تنسی تحدید اسم ومسار ١‏ لمشر وع على جهازك انظر الصوره التاليه - 


oe Start Page - Microsoft Visual Studio (Administrator) E | E | 2] 
File Edit View Debug Team Data Architecture Test Tools Analyze Window Help 
و )هاف 4اچ ك :ا‎ >© -| | a Fa E 1” 


| New Project EA 


Recent Templates | .NET Framework 4 vr 1 Sort by: | Default Search Installed Templat @ | 


Installed Templates 


Type: Visual Basi 

3 Windows Forms Application Visual Basic r a 
4 Visual Basic A project for creating a command-line 
Windows application 

Web WPF Application Visual Basic 


Office 
اڭ‎ ¥ Console Application Visual Basic 


xoq[o0 1 <$, 1310d a35 Fg 


Reporting ڪڪ‎ 
SharePoint ASP.NET | Console Application 1 Visual Basic 
Silverlight 
Test Class Library Visual Basic 
WCF 
Workflow 
Visual C# 
Visual C++ 
Visual F# 
Other Project Types 
Database 


نوع الث 1 وع گها قولنا Silverlight Application Visual Basic‏ 


Silverlight Class Library Visual Basic 


WCF Service Application Visual Basic 
Modelina Proiects 


NETE ASP.NET Dynamic Data Entities... Visual Basic 


Name: اسم اشرو‎ My Console Project 
مسان ال 028ا‎ Browse. 


Solution name: My Console Project ¥ Create directory for solution 


[| Add to source control 


| 


Eq Solution Ex. a RE I lL OEIC 


# Error List 


بعد الانتهاء من تحديد نوع واسم ومسار المشروع نقوم بالضغط على )0 
ليتم فتح المشروع >> ثم نأتی للتعرف على بعض النقاط قبل ان نبدا فى شرح الاكواد 
انظر الصوره التاليه :- 


oe ConsolêApplicatronl = Microsoft Visual stud [raministrator] اققا اسهد | ادا‎ 

File Edit View Project Build Debug Team Data Architecture Test Tools Analyze Window Help 

neg _ "HR RN >‏ | | € > 2 | هدت # | چا لسا لو 

EERE ESOS SA | 

1 | Modulel vb" x | < Solution Explorer 

EEREE 
TITRE Û 3 reno 


EModule Module1 E] Modulel.vb 


Sub Main()‏ ا 


هنا يتم كتابه الاكواد المراده 


xoq|001 gy 1310d 1235 3 


Eq Solution Ex... E REE Oy 


Properties rHx 


End Sub 


End Module 


# Error List 
Ready 


نلاحظ فی صفحه الاکواد تبدأ ب 
Module Module1‏ 
Sub Main()‏ 


فهنا يكون موديول 1 هو الحاوى للصب الرئيسى فبدون الموديول 1 لا يعمل المشروع فهذا هو جزء 
اساسى من المشروع 

ايضا لا يمكن تغير اسم الصب الرئيسى واذا حدث به تغير تأكد ان المشروع سوف لن يعمل. 

فكن على حذر من هذه الاخطاء البسيطه التى يقع بها الكثير ايضا تأكد ان نهايه صفحه الاكواد تنتهى 
بهاتان الجملتان على الترتيب 

End Sub 

End Module 

وتكتب الاكواد المراده تحت الصب الرئيسى كما ترى فى الصوره السابقه 

ومن الممكن كتابه اكواد معينه فوق المودييل فى ماتسمى بمنطقه التصريحات العامه كماهو موضح 
بالصوره السابقه ليكون الكود معروفا فى المشروع كله ويمكنك استعماله تحت اى صب 


مفاهیم 

اخى العزيز لا بد ان تعرف بعض المفاهيم الاساسيه قبل ان نبدأ فى الكورس الخاص بالبرمجه تحت 
الدوس 

من اهم ذلك المفاهيم (المخازن وانواعها وكيفيه حجزها) 


انواع المخازن :- 

المخازن لها انواع كثيره جدا. فى هذا الجزء لن نتحدث عليها ككل لانها لاتكفى للتحدث عنها فى كورس 
المخزن النصى :- 

وهو عباره عن مخزن يحمل بيانات من النوع النصى سواء كانت اسماء عملاء او ارقام تلیفونات او 
ايميلات .... الخ فكل هذا يقع تحت مفهوم داتا نصيه 


کیفیه حجزه 
Dim M As String‏ 


المخزن العددى :- 
وهو عباره عن مخزن يحمل بيانات من النوع العددى الصحيح فقط فلا يجوز ان نعطيه قيمه عدد عشرى 


کیفیه حجزه 
Dim M As Integer‏ 


المخزن العددى المزدوج:- 
وهو عباره عن مخزن يحمل بيانات من النوع العددى الصحيح والمزدوج (اى الارقام العشريه) 


کیفیه حجزه 
Dim M As Double‏ 


المخزن بايت :- 
وهو عباره عن مخزن يحمل القيم بايت التى هى جزء من اجزاء الملفات ووحده قياس لها وسوف نقوم 
دشر حه فى الوحذات القاه ية امتغماله فى تتمير الطفات 


کیفیه حجزه 
Dim M AS Byte‏ 


انتهت الوحده الاولى 


الوحده الثانيه -٠‏ 
رع خصاد الکوندول 


اعلم اخى القارىء اننی حينما اتحدث عن الکكونسول اننى اتحدٿث عن شاشه الدوس التى سوف 
تظهر حين تنفيذ المشروع تابع شرح اکواد خصائص الكونسول بدقه وقم بتجربتها کلھا لتشعر 


بالفرق 


يقوم هذا الکود بمسح شاشه الدوس ان کان بھا کلام یفضل کتابتھ مع اول کل کود' Clear()‏ 


لاصدار صوت من شاشه الدوس ' Beep()‏ . 


لتغيير لون ماخلف الكلام فى شاشه llدوس‏ ' BackgroundColor = ConsoleCo1lor.B1ue‏ 


لوضع عنوان معين فى شاشه الدوس والعنوانالافتراضى لها يكون على اسم المشروع ' ("0)ع۷") = .111٥‏ 


لتغيير لون شاشه llدوس‏ ' ForegroundColor = ConsoleColor.DarkGreen‏ 


لتغيير مكان مؤشر البداي4 ' )10 ,10( .SetCursorPosit10"‏ 


للكتابه فى سطر قابل للزياده ' ) wWrite("Welcome"‏ 


للکتابه فی سطر مستقل لایمکن الکتابه فيه مره اخری ' .WriteLine("AGC Academy")‏ 


Console. 


Console 


Console. 


Console 


Console. 


Console 


Console. 


Console 


هذا الكود لكى يقرأ الكونسول قيمه مايدخله المستخدم بlدوس‏ ' Dim S As String = Console. ReadLine()‏ 


يقوم هذا الكود ب تد بتثبیت شاشه الدوس وعدم اغلاقها تلاقئ الا عند الضغط على ای زرار " ) .ReadKey(‏ 


هل قمت بتطبيق الاكواد السابقه بدقه ؟ 


هل فهمت ماهو دور کل کود ؟ 
اذا دعنا نقوم بأمثله عینیه تقوم بتطبيق اشياء معینه 


Console 


المثال الأول -٠‏ 


مثال يقوم بعرض بیانات شخص فى شاشه الدوس تلقائيا ' 
Dim Name As String = "Malek"‏ 

Dim Phone As String = "0100309505" 

Dim Mail As String = "Captian.malek@Qgmail. com" 


لاحظ الكود التالى لعرض بيانات الشخص بجوار بعضها فى سطر واحد' 
Console.WriteLine("Name :{0} Phone:{1} Mail:{2}", Name, Phone, Mail)‏ 
Console.WriteLine ("== === 3‏ 
Console. ReadKey( )‏ 


لقد قمنا فى هذا المثال بحجز ثلاث مخازن من النوع النصى باسماء معينه ووضعنا بكل مخزن 


تم آمرنا شاشه الدوس ان تضع بيانات الشخص الموجوده فى كل مخزن فى سطر واحد 
ثم امرنا شاشه الدوس بعمل خط هكذا - تحت بيانات الشخص 


هل قمت بتطبيق المتال ؟ 
رکز کویس وانت بتطبق وافهم الود بیقول ايه وفایدته ايه تعالی نطور الکود شویه فی المثال 
التانے ؟ 

لی 


المثال الثانى ّ 


مثال يوضح عمل الكونسول عن طريق ادخال المستخدم قيم معينه ' 


Console.Write("Enter UR Real Name : ") 
Dim Rname As String = Console.ReadLine 


Console.Write("Enter UR Real Phone : ") 
Dim RPhone As String = Console.ReadLine 


Console.Write("Enter UR Email : ") 
Dim Rmail As String = Console.ReadLine 


Console.WriteLine("The Information U Entred Is ") 
Console.Write("Name: {0} Phone: {1} Mail: {2}", Rname, RPhone, Rmail) 


Console .ReadKey() 


هو نفس المثال السابق ولكن المستخدم نفسه هو الى قام بادخال بيانات الشخص افهم الكود بيقول ايه 
امرنا الکونسول بکتابه هذه الجمله فی سطر ڑابJ‏ lajllدo Enter UR Real Name‏ 
وقمنا بحجز مخزن نصى وامرناه بحمل القيمه التى سيدخلها المستخدم 


امرنا الكونسول بكتابه هذه ائجمفئa4 Enter UR Real Phone‏ 
وقمنا بحجز مخزن نصى وامرنا المخزن بحمل القيمه التى سيدخلها المستخدم 


امرنا الكونسول بكتابه هذه الجمله على شاشa‏ llدوسg Enter UR Email‏ 
ثم قمنا ر جز خد ۰ أب ا قيمه مایدخل إ1 e.‏ م فئ الشاكة 


تم امرنا الکونسو بکتابه هذه الجمله فى سطر The Information U Entred Is Jan‏ 
ثم امرنا الكونسول بكتابه البيانات التى ادخلها المستخدم والتى كان يحملها كلا من المخازن الثلاثه السابقه 


ثم امرنا الکونسول بعدم اغلاق شاشه الدوس فور تنفيذ الكود الا عند الضغط على اى زرار فى الكيبورد 


ملحوظه مهمه جدا - 


من المعروف عند حجز مخزن من 80٥1٥3۸‏ الذی یرجع بقیمه نعم او لا فانه عند حجزه يحمل القیمه لا 
الع 
فاذا اردنا ان نقوم بحجزه بقیمه فار غه نقوم بکتابه کود الحجز کالاتى :- 


Dim A As Nullable(Of Boolean) = Nothing ' لحجز مخزن يحمل قيمه خالي4‎ 


انتهت الوحده الثانيه : 
اخى القارىء قبل البدء فى الوحده الثالثه اتمنى ان تكون قد طبقت الأمثله السابقه بدقه وفهم معنى كل كود لان 
الاتى مترتب على السابق 


-: الوحده الثالثه‎ 
ARRAY (DYMENTION) 


تحمل المخصوصه صفات المخزن العادى ولكنها تحتوى على اجزاء دعنا نلاحظ الفرق مع الامثله 


المتال الاول :- 


ده مثال مبسط يوضح كيفيه عمل المصفوفه ' 


Dim B(2) 
B(1) 
B(2) 


200 
300 


Console.WriteLine(B(1)) 
Console.WriteLine(B(2)) 
Console. ReadKey( ) 


فى المثال السابق قمنا بحجز مصفوفه تحتوى على جزئين 

ثم وضعنا فى الجزء الاول القيمه 200 

والجزء الثانى 300 

ثم امرنا الكونسول بكتابه محتويات المخزن الاول وكتابه محتويات المخزن الثانى 

هل لاحظث كبفيه عمل المضفوفه ؟ هل عرفت ما الفرق بيتها وبين المخزن العادئ ؟ 
اذا اها نذ فب تون الال اکن لتر ف كل مير ات الضف قات 


المثال الثانى 


مثال يوضح کيفيه هدم المصفوفه القدیمه واعاده بنائها من جدید لزیاده اجزائها ' 


Dim Z(2) 
Z(1) = 500 
7(2) = 600 
ReDim Z(3) 
Z(1) = 5 
FS 
IONS 


Console.WriteLine(Z(1)) 
Console.WriteLine(Z(2)) 


Console.WriteLine(Z(3) 
Console.ReadKey( ) 


قمنا فى هذا المثال بحجز مصفوفه تحتوى على جزئين ووضعنا بكل جزء قيمه معینه 
ثم قمنا باعاده بنائها من جدید لزیاده اجزائها وجعلناها تحتوی على ثلاثه اجزاء ووضعنا بکل جزء 


قيم معينه غير القيم القديمه لانها تم هدمها 
ثم أمرنا الكونسول بكتابه مافى أجزاء المصفوفه فى شاشه الدوس 


المثال الثالث٠-‏ 


مثال يوضح کیفیه زیاده عدد اجزاء المصفوفه بدون هدمها ' 


Dim Q(2) 
0(1) = 100 
0(2) = 200 
ReDim Preserve Q(4) 
0(3) = 300 
0(4) = 400 


Console.WriteLine(Q(1)) 
Console.WriteLine(Q(2)) 
Console.WriteLine(Q(3)) 
Console.WriteLine(Q(4) ) 
Console. ReadKey() 


رکز فی شرح المثال ده عشان تفهمه کویس 

قمنا بحجز مصفوفه تحتوى على جزئين ووضعنا بالجزء الاول والثانى قيم معينه 
ا ا و 

ثم قمنا بوضع قیم معينه فى الجزء الثالث والرابع 


تم امرنا الكونسول بکتابه محتو یات الاربع اجزاء فی شاشه الدوس 


هل قمت بتطبيق المثال ؟ 
هل فهمت عمل کل کود من اکواده ؟ 
اذا هيا بنا لنقوم بتطوير المثال اكثر لنرى امكانيات المصفوفات 


المثال الرابع:- 


هذ المثال يجعل المستخدم يقوم بانشاء المصفوفه بنفسه بحيث يدخل عدد اجزائها ويضع القيم لكل جزء' 
Console.Write("Enter the Parts of Array : ")‏ 

Dim C As Integer = Console.ReadLine 

Dim D() 

هل تذكر هذا الكود ؟ لاعاده بناء المصفوفه من جديذ R01۳ 0)٣(‏ 

Dim E As Integer = 0 


FOP E =5 1 To D:Lenğth = 1 
Console.Write("Enter The No. {O} : ", E) 
D(E) = Console.ReadLine 


Next 
Console. ReadKey() 


Console.WriteLine("The Numbers U entred is ") 
Console.WriteLine ("=== 7 


Dim F As Integer = 0 
For F = 0 To D.Length - 1 
Console.WriteLine(D(F)) 
Next 
system.Array.Sorخ(D5)‎ ' يقوم الكود بعمل فرز لعناصر المصفوفه وذلك بترتيب اجزاها من الكبير الى الصغير‎ 
System.Array . Reverse (D) 'قڊlull‎ sz وذ‎ 
Console. ReadKey( ) 


رکز فی المثال ده لئویس جدا هتلاقی حجات جديده عليك 

امرنا الكونسول بأن يسال المستخدم بادخال عدد اجزاء المصفوفه 

ثم قمنا بحجز متغير من النوع العددى ليحمل قيمه ما ادخله المستخدم (عدد اجزاء المصفوفه) 
ثم قمنا بحجز مصفوفه خاليه الاجزاء 

تم قمنا باعاده بنائها بعدد الاجزاء الذى قام بادخاله المستخدم (الذى كان يحمله المخزن العددى ) 
ثم قمنا بعمل دواره تقوم بعمل الاتی 

تسأل المستخدم عن ادخال القيمه التى يريد وضعها فى كل جزء من الاجزاء 

وتقوم بقراءه كل قيمه ووضعها فى الاجزاء على الترتيب 


بعد ما قام المستخدم بوضع قيمه لكل جزء من اجزاء المصفوفه تنتظر الشاشه منه ان يضغط على 
ای زرار لتنفیذ الاتى :- 

عمل سطر فاصل هکذا س 

ثم عرض قيم اجزاء المصفوفه التى قام بادخالها المستخدم 

ثم فرزها (ترتيبها من الرقم الكبير للصغير) 

ثم فرز ها مره اخری (عکس السابق) 


هل فهمت المثال جيدا ؟ 

هل فهمت عمل کل کود من اکواده ؟ 

نعم انه بالفعل صعب الى حد ما لانه یحتوی على اکواد جدیده ولکن اذا قمت بتطبیقه اکثر من مره 
وقراءه الشرح بدقه سوف تتغلب على كل الصعوبات تم هيا بنا لنطور المثال اكثر ؟ 


المثال الخامس:- 


مثال يوضح کیفیه عمل بحث داخل مصفوفه عن طریق داله البیناری سيرش ' 
Dim M(2) As String‏ 
M(1) = ("Ahmed")‏ 
M(2) = ("Mohmaed")‏ 
ملحوظه هامه جدا : لايمكن اتمام المثال الا بعمل فرز اولا للمصفوفه بالكود التالى ' system. Array. Sort (M)‏ 


Console.Write("Enter The Name U want To Find : ") 
Dim H As String = Console.ReadLine 

Dim K As Integer = System.Array.BinarySearch(M, H) 
Console.WriteLine(K) 

Console. ReadKey( ) 


فى هذا المثال قمنا بحجز مصفوفه من النوع النصى (اى يكتب فى اجزائها نصوص ) 
ثم قمنا باعطاء کل جزء من اجزائها قیمه معینه (احمد) و (محمد) 

ثم قمنا بعمل فرز للمصفوفه وذلك ليتم ترتيب محتويات اجزائها واعلم انك اذا ما اضفت كود الفرز 
قبل كود البحث لن يفلح معك الكود 

ثم امرنا شاشه الدوس ان تطلب من المستخدم ان يدخل الاسم المراد البحث عنه 

ثم قمنا بحجز مخزن نصى ليحمل القيمه التى سوف يدخلها المستخدم 

وقمنا ايضا بحجز مخزن عددى (أى يحمل بيانات من النوع العددي فقط بدون كسور) ليحمل ناتج 
جمله البحث 

ثم أمرنا الكونسول بكتابه ناتج جمله البحث (الذى كان مخزون فى المخزن العددى) 

فمثلا ان كتبنا لعصط۸ فتكون ناتج البحث 1 اى هذه القيمه موجوده فى الجزء الاول للمصفوفه 
فى البحث 


مثال بسیط جدا وسهل ولا یحتوی على تعقیدات 

اذا هل قرأته بکل دقه ؟ 

هل فهمته بکل اکواده ؟ 

هل قمت بتطبيقه اكثر من مره ليصل الى عقلك ؟ 

اذا اعلم انك فهمت طريقه عمل المصفوفات وهكذا تكون قد انتهى درس المصفوفات 
اتمنى ان يكون قد وصلت بفكرك الى ارقى المستويات 


انتهت الوحده الثاثه:- 


تذکره -٠‏ 
وذكر فان الذكرى تنفع المؤمنين__ 


قبل ان تبدأ فى الوحده الرابعه ارجوووووووووووو ان تكون فد انتهيت من تطبيقات الوحدات السابقه 
لانه كما قولنا كل الامثله والشروحات القادمه مبنيه على السابقه 


الوحده الرابعه:- 


تهدف هذه الوحده الى :- 
رک ا ا اکر ن کک فر رن کر کن کت ن 
او من منتصفها او البحث عن حرف معین فی کلمه مخزنه eh‏ الخ 


Dim M As String = "Malek" 

Dim F As String = "Future Developer" 
Dim L As String = M + F 
Console.Write("Enter UR Name : ") 
Dim R As String = Console.ReadLine 


يقوم الكود باقتطاع الكلمه الموجوده ف فى المخزن من اليسار ليجعل حروفها3 حروف فقط' )3 R = LSet(R,‏ 
يقوم الكود باقتطاع الكلمه الموجوده فى المخزن من اليمين ليجعل حروفها3ق حروف فقط' (3 رR)امSئR‏ = R‏ 
يقوم الكود بج بجمع مافى المخزنين بجوار بعضهم ويضع بينهم5 مسافات ' R = M & Space(5) &F‏ 


Console.Write(R) 


لاظهار حرفین من يسار الكلمه الموجوده ذ ف jënllزj'‏ ))2 Console.wWrite(Left(R,‏ 

لاظهار اول حرفين من يمين الكلمه الموجوده فى المخزن المحدد ' ))2 Console.WriteLine (Right (R,‏ 

يقوم الكود باظهار رقم الحرف « الموجود فى الكلم4 ' Console.WriteLine(InStr (R, "M"))‏ 

يقوم الكود التالى باظهار ثلاث حروف ابتداء من الحرف الاول فى الكلمه ' ))1 ,3 Console.WriteLine(Mid(R,‏ 
يقوم بتبديل الحرف ۴ مكان الحرف « فى الكلم4 ' Console.WriteLine(Replace(R, "F", "M"))‏ 

Console. ReadKey( ) 


فى هذا المثال 

قا تخر لات تقر ات من نالصي 

ووضعنا بالمخزن الاول والثانى قيمه معينه 

ثم جعلنا المخزن الثالث يساوى مافى المخزن الاول والمخزن الثانى 

ثم امرنا الكونسول بسؤال المستخدم ان يكتب اسمه لنقوم ببعض العمليات عليه 

فا دہ الكت الت کے شرح کل کرد من اکر ادها فى .الال الاق 

لا اطم مادا اقول لك من اهستها !| ولككاستلاحظ كر هيه هذه العمانات حيا تك ياسوق 
والبرمجيات عمتا 


انتهت الواحده الرابعه:- 


-: الوحده الخامسه‎ 
STRING BUILDER 


تهدف هذه الوحده الى :- 

كيفيه التعامل مع النصوص ولكن عن طريق استخدpl string Builder‏ 

وللعطم انه من الممكن ان نستغنى عن استعماله ونقوم باستعمال الطريقه العاديه كما اخذنا فى الوحده الرابعه ولكن 
هذا يرجع الى حجم الداتا ان كانت الداتا بأحجام صغيره فيمكننا استخدام الطريقه العاديه كما اخذنا فى الوحده الرابعه 


اما ان كانت حجم الداتا كبيره تتراوح الى الجيجات ففى هذه الحاله لابد ان نستخدم String Builder I‏ 
وهذا يرجع الى سرعه تنقله بين الحروف والكلمات وهذا مايقوم المبرمجين باستخدامه فى البرامج اداره الشركات 
الكبرى مثل شركات الاتصالات والفنادق والمستشفيات العامه ..... الخ . 

ايضا يستخدم فى جزء من تشفير الرسائل والكلمات والباسوردات والداتا المهمه . 

تعالی بنا نتعرف على ال ٣‏ م1dذBu‏ عnذآtك‏ من خلال الأمثله :- 


المثال الاول:- 


مثال يوضح كيفيه التعامل مع الاسترنج بيلدر ' 

Dim S As New Text.StringBuilder 

للكتابه داخل المخزن على سطر قابل للاضاف' S.Append("Agc")‏ 

للكتابه داخل مخزن الاسترنج بيلدر على سطر مستJã‏ ' S.AppendLine ("Academy")‏ 

لمسح خمس حروف من الكلمه التى بالمخزن ابتداء من الحرف الثالث لها ' (3 ,5)ع0۷صع5S.R‏ 

لتبديل كل حروف " فى الكلمه الى الحرف ۸ ' ("1" ,"۸")ع٤13م5.۴R۴‏ 

يكتب هذا الكود لعرض كل محتويات المخزن من لمات ' Console.WriteLine(S.ToString)‏ 
Console. ReadKey( )‏ 


يقوم هذا المثال بشرح كيفيه التعامل بالاسترنج بيلدر مع النصوص بدلا من الطريقه العاديه 

فهنا قمنا بحجز مخزن من النوع 8u 11٥٣‏ ع٣1٣‏ ك ۲e».‏ الذى يتعامل مع النصوص 
ثم امرناه باضافه داخل المخزن کلمه معینه علی سطر يقبل للاضافه مره اخری 

تم ضفنا بالمخزن کلمه اخری ولکن علی سطر مستقل غير قابل لاضافه کلمات اخری لیکون مافی 
المخزن هو 

Agc 

Academy 

ثم امرنا المخزن بحذف اول خمس حروف من الكلمه التى به ابتداء من الحرف الثالث لها ليكون 
الناتج كالاتى 

Ag 

emy_ 


ثم امرناه بتبدیل حرف M‏ ويضع مكانه حرف ال ۸ لیكون الناتج كالاتى 


Agc 
AcadeAy 


ثم امرنا بعرض كل العمليات التى تمت عليه على شاشه الكونسول (شاشه الدوس) 


تعالى بنا نطور المثال اكتر ؟ 


المثال الثانى - 


تشفير الرسائل : 
قبل ان نبدأً بالمثال عليك ان تعلم بعض النقاط المهمه 
اننا عند کتابه ای رساله مهما کان محتویاتها من کلمات فان کلماتها تتکون من حروف . 
فلابد ان تعلم ان لكل حرف من الحروف رقم معين تتعامل به لغات البرمجه كلها ويطلق عليها 
(اكواد الاسكى) فمتلا زرار الانتر فى الكيبورد رقمه 13 وهكذا .... 
وتنحصر هذه الارقام من صفر حتى 255 تحتوى على كل العلامات والحروف الموجوده فى 
الكيبورد 
ومنها الارقام المستخدم حروفها اكثر استخداما هى الارقام مابين 45 الى 122 

دعنا مع هذا المثال البسيط نظهر مانقول 


مثال بسيط يقوم بعرض اكواد كل الحروف والعلامات التى بالكيبورد ' 
Dim A As Integer = 0‏ 

For A = 0 To 255 

Console.WriteLine(Chr(A) ) 

Next 

Console.WriteLine("-------- 

Console.WriteLine(Chr (13) ) 

Console. ReadKey( ) 


هل توصلت الان الى ما أقول ؟ 
اذا دعنا نأخذ مثال على كيفيه تشفير الرسائل 


تشفير الرسائل ' 


Dim SB As New Text.StringBuilder 
SB.Append("How R U") 
Dim E As Integer 
For E = 45 To 122 

SB.Replace(Chr(E), Chr(E + 125)) 

Next 
Console.WriteLine(SB.ToString) 
Console. ReadKey( ) 


فی هذا المثال قمنا بحجز مخزن Text.stringBui1lder ggill ja‏ 

ثم قمنا بوضع القيمه لا ۴۸ ۷«ه] فى المخزن 

ثم قمنا بحجز مخزن من النوع العددى ليحميل اعداد لنستخدمها كأكواد لحروف المخزن 

ثم قمنا بعمل دوارہ تقوم بالاتی 

ان يبدا المخزن العددى من الرقم 54 وينتهى عند الرقم 125 

امرنا مخزن الاسترنج بيلدر بان يقوم بتبديل كل الحروف التى كودها هو مافى المخزن العددى 
مکان حرف یحتوی على کود ازید منه ب 125 (ليقوم بتبديل حرف مكان حرف اخر لتصبح الرساله غير مفهومه) 
ثم امرنا شاشه الكونسول بان تكتب محتويات المخزن استرنج بيلدر بعد التعديل 

ليصبح الناتج كالأتى 

دز ق إی 

انظر كيف اصبحت الجمله لا ۴ 10۷ مشفره !! 


كيف نفك التشفير عن هذه الجمله ؟ 

تعالى نفكر سويا فى كيفيه فك التشفير عن هذه الجمله لتعود لطبيعتها 

هل فكرت جيدا ؟؟؟ اعلم انك وصلت الى حل لانك قد فهمت المثال وطبقته اکثر من مره وفهمت کل اکوادہ 
اجل هذا هو الحل بارك الله فيك 


فك التشفير عن الرساله ' 


For E = 45 To 122 
SB.Replace(Chr(E + 125), Chr(E)) 
Next 
Console.WriteLine(SB.ToString) 
Console. ReadKey( ) 


يقوم هذا الكود بعمل دواره تقوم بعكس ماقامت به الدواره الاولى 
How R U‏ 


ما رأيك فى طريقه التشفير التى يعتقد الكل انها معقده فى فهمها ؟ 
اعلم انها اسهل مما كنت تتصور 
اذا تعالى بنا نفكر سويا فى ايجاد طريقه لتعقيد التشفير اكثر ليصعب على المستخدم فك تشفيرها 


المثال الثالث٠-‏ 


مثال يوضح تشفير الرسائل بطريقه اقوى من السابق لتصبح رساله معقده التشفير ' 


Dim Sbb As New Text.StringBuilder 
Console.Write("Enter The MSg U like To Encrypt : ") 
Dim G As String = Console.ReadLine 
Sbb.AppendLine(6G) 
Dim H As Integer = 0 
For H = 45 To 122 
Sbb.Replace(Chr(H), Chr(H + 100) & "@!#") 
Next 


Console.Write("The Msg After Encrypt : {0}", Sbb.ToString) 
Console. ReadKey( ) 


فی هذا المتال قمنا بحجز مخزن Text.StringBui1der gعgill ja‏ 

وامرنا الكونسول ان يسأل المستخدم عن الكلمه التى يريد تشفيرها 

وقمنا بحجز مخزن من النوع النصى لكى يحمل قيمه ماكتبه المستخدم 

ثم امرنا مخزن الاسترنج بيلدر ان يقوم باضافه ماكتبه المستخدم اليه ليقوم بعمل التشفير عليه 
ثم قمنا بحجز مخزن عددیى لعمل دواره عليه كما فى المثال السابق 

هذه الدواره تقوم بتبديل الحروف مكان حروف اخرى وتضيف مع كل حرف هذه الكلمات المعقده #ا@ لتصبح 
الرساله شديده التعقيد 

فاذا کان قیمه ما کتبه ١‏ لمستخدم هو How R U‏ 

فیکون الناتج کالاتی 

?Q!H#E#!@wQ!# ?Q@!# ?Q!F# 

انظر كيف اصبحت الكلمه معقده بعد التشفير !!!! 

راو 


اعلم انك الان تفكر فى كيفيه فك التشفير عن هذه الجمله صعبه التعقيد 
واعلم ايضا ان الموضوع شيق لك 
اخى القارىء نعم هو نفس فكره كود فك التشفير السابق 


فك التشفير' 

For H = 45 To 122 
Sbb.Replace(Chr(H + 100) & "Q!#", Chr(H)) 

Next 
Console.Write("The Msg After Decrypt : {0}", Sbb.ToString) 
Console.ReadKey() 


یقوم الکود الاتی بعمل دواره تقوم بعکس ماقامت به دواره التشفير 
لتقوم باعاده الکلمه الى طبیعتها مره اخرى . ليكون الناتج كالاتى 
How R U‏ 


انتهت الوحده الخامسه :- 


الوحده السادسه:- 


اتال الکونعول بقو امک البیانانتے 


تهدف هذه الوحده الى :- 

عن طريق مكتبه معرفه كيفيه انشاء اتصال بين الكونسول وقواعد البيانات عن طريق الادو 

قبل ان نبدأً فى عمل اتصال بين اى قاعده البيانات والكونسول لابد ان نقوم بحجز مكتبه الادو وذلك 
عن طريق اتباع الخطوات الاتيه :- 
من قائمه الادوات نختار 
Microsoft‏ << ثم من المiفi Project >> Add Reference... >> C0‏ 
ActiveX Data Object 2.8 Library‏ 


يبقى لدينا ان نحصل على كود جمله الاتصال الذى سيكتب لنقوم بتوصيل قاعده البيانات بالكونسول 


کد انض اس داس انات بضر ف النظر كن وا 
اتبع الخطوات الاتيه :- 


فی مجلد المشروع ثم قم بفتحه ومن قائمه الادوات له اختار حفظ بأسم تم اختار ای اسم U٥1‏ 
.قم بانشا ملف ۲×۲ وضف له الامتداد 
كما هو موضح بالصور التاليه :- 


Name Date modified Type Size 


ıJ DataBase Tel eNTT 
ف‎ project ١ 
MyDatabase 11 
E2 roject اس : | 2ء م ۱ 1ء‎ 
@ Pry :=* | Har} Microsoft Office Access 2007 اة انات‎ 
3 ۱ ج ا‎ 
9 PIRES | Bitmap image 
Skin Builder Style Project 
laz] ontact 
Î Microsoft Office Word Document 
jE] Journal Document 
ا‎ Fi 2 3 2 
E #F| Microsoft Office PowerPoint Presentation 
1 F Î fF 9 
0 e) Microsoft Office Publisher Document 
۴ : SS: 
Grahp by 3 WinRAR فdıترآ‎ 
n Setup Factory 10 Document 
Lustomize this folder... Skin Builder Project 
ıl _ATL MFC Trace Tool settings file 
Paste 
Text Document 1 
Paste shortcut 
Windows Live Call | 
Undo Delete Ctrl+Z 
Codejock Command Bars Designer Document 
Share with i Microsoft Office Excel Worksheet 
@& Groove Folder Synchronization ۴ 3 WinRAR ZIP ii 
Properties 
$ Downloads Jl project File folder 
CÎ E TO DOL ENE ROE 
ve. 
Edit Format View Help 
1 New CtrleN 10 Jj « Local Disk (DJ * My ¢ project ¢+ ا ج‎ Search project ° 
1 Een Organize w New folder Bae: @ 
ع‎ Cirl+S n : ب‎ : : 
2 [® Documents * Name Date modified Type 
i 
1 ا‎ ıl DataBase File folder 
Page Setup... [ë&l Pictures a 
9 project File folder 
H Print... E El Videos New Text Document Text Docu 
= 
Exit 
‌ + Homegroup 
a = 
3 ر‎ Computer 1 
ھ‎ Ë Local Disk (CJ 
3 E Local Disk (DJ | | 
Gû Lecal Disk (E:) 
N gj CD Drive (HJ 7 - 7 
File name: ¥ 
Save as type: | Text Documents (".bet} >| 


ليصبح لديك ملف بالشكل كما هو موضح بالصوره التاليه 


Date modified Type Size 


Cila Fall me 


ا 


Tell RIT 


Advanced [Al _ | 
Specify the following to connect to ODBC data: 
1. Specify the source of data: 
@ lse data source name 
Connection string: 


سوال[ ا 


2. Enter infomation to log on to the server 
ser name: 


Password: 
O Blank password  [] Alow saving password 


3. Enter the initial catalog to use: 


كما ترى ايضا شكل الملف بعد فتحه 


ثم تقوم بعمل الخطوات كما فى الصوره الاتيه من الخطوه 4 حتى الخطوه 9 


RE Prope ا‎ 


Select the data you wart to connect to: 


EF Data Link Properties E 
Connection 1 Advanced [aı | Provider | Connection | Advanced [Al] 

pecify the following to connect to SQL Server data: 
1. Sel 


۴ 


OLE DB Provider(s) QLELLELa SENMELIaME 

Microsoft Jet 3.51 OLE DB Provider | CAP TIANMALEK-PC * 
Microsoft Jet 4.0 OLE DB Provider 2. Enter infomation to log on to the server: 

Microsoft Office 12.0 Access Database Engine OLE DB Pra} O lse Windows NT Integrated security 
Microsoft OLE DB Provider for Analysis Services 10.0 | @ lJse a specific user name and password: 


Microsoft OLE DB Provider for Analysis Services 9.0 Etna: 

Microsoft OLE DB Pravider For Data Mining Services 

Microsoft OLE DB Provider for Indexing Service > > Password: 

Microsoft OLE DB Provider for ODBC Drivers TO Blank password | | Alow saving password 
Microsoft QLE DB Provider for OLAP Services 8.0 3. ® Select the database on the server: 


Microsoft OLE DB Provider for Oracle 
t OLE DB Provider 
ft OLE DB Provider f 
3 simple F 


@ Attach a database file as a database name: 


الخطوه 1 : تحديد التبويب الذى ستبدأ اختيار نوع قاعده البيانات منه 

الخطوه 5: تقوم بتحديد نوع قاعده البيانات المراد الحصول على كود الاتصال لها (فى الصوره تم تحديد نوع قاعده 
البيانات سيكوال سيرفر). 

الخطوه 6 : اضغط على خ×ع" لينتقل بك الى التبويب الاخر 

الخطوه 7 : قم بكتابه رابط او اى بى السيرفر الذى يحتوى على قاعده البيانات وان كانت على جهازك فاکتب اسم 
جهازك 

الخطوه 8 : اكتب اسم وكلمه سر المستخدم لقاعده البيانات ان وجد 

الخطوه 9 : عمل اختبار للاتصال ليعطيك رساله تفيد بنجاح الاتصال 


هكذا قم انتهينا من عمل الاتصال بنجاح ولكن الى الان لم نحصل على كود الاتصال !!! 
قم بفتح الملف عن طريق النوت باد ستجد به جمله الاتصال مايهمنا فى هذه الجمله 
هو من اول الکلمه ٣‏ عل ۷1٥٣م‏ حتی نهایه الکود 


Er اا ا‎ 1 8 e 

Name Date modified Type Size 

Jj DataBase File folder 

J project File folder 

E MyDatabase Microsoft Office A... 272 KB 
| | New Text Document W:1» Text Document 0 KB 
3 project Microsoft Visual 5... 1 KB 

project Visual Studio Solu... 23 KB 
EE Microsoft Data Link 1 KB 
ا‎ Open 
7-Zip ٣ 


Scan for Viruses 


#. Move to Quarantine 


B Lore Services‏ ترشیت کا 


"م" إضصاخة إلى ك 


8# :قط و إرسال بالبرید‎ Choose default program... FE 5 eT 
8 و إرسال بالبرید 5.2۲" فغطالی‎ 2 Edit - \REREEHE: E 
Restore previous versions 
Send to ٣ a . mi pt . ss . ٣ 
` Everything a DB initstring 
E Provider=SQLOLEDB.1;P 
Copy Info=False;User ID=Sa;Data 
CE ol Source=CAPTIANMALEK-PC 
Delete 
Rename 1 
Properties 


ified: T ۲۰1 صر‎ ۷ 


الخطوه 10 : لفتح الملف عن طريق النوت باد للحصول على كود الاتصال 
الخطوه 11 : لتحديد كود الاتصال وعمل نسخه منه لنضعها فى كود الاتصال لنقوم بعمل التوصيل بين القاعده 
والکونسول 


بعد تنفيذ كل هذه الخطوات 
تعالی بنا نأخذ متال لعمل اتصال بین قاعده بیانات SQL Serever‏ والکونسول ابلیکیشن 


Module module1 
Dim cn As New ADODB.Connection 
Dim RS As New ADODB. Recordset 


Sub main() 
cn. Open ("provider= 
sqloledb; database=AGc ;Uid=Sa; Pwd=0100309505; server(local)") 
RS.Open("Sstudent", cn, ADODB.CursorTypeEnum. adOpenDynamic, 
ADODB.LockTypeEnum. adLockBatchOptimistic) 


End Sub 


End Module 


بحجز مخزنين من مكتبه الادو تحت الموديول مباشره وذلك لتعميم المخزنين على مستوى المشروع لكى نستطيع 
المخزن التعامل معهم تحت اى صب االاول من النوع کو نیکشن الذى يقوم بالاتصال مع قاعده البيانات 
والثانى من النوع ريكورد ست الذى يقوم بفتح الجداول 


انتهت الوحده السادسه :- 


-٠ الوحده السابعه‎ 
FUNCATION 


تهدف هذه الوحده الى :- 
معرفه ماهو الفانکشن وکیفیه التعامل معه وکیف نستفاد منه؟ 


٠ الفانكشن‎ 

هو متل الصب تماما یخزن به اکواد معینه ولکن الفرق انه یعود بقیمه معینه 
ویستعدی تحت اى صب ليعود بالقيمه المرسله اليه 

وينشأ الفانكشن تحت الموديول وليس بداخل الصب 

دعنا نرى الامتله ليتضح لنا اكثر ماهو الفانكشن 


المثال الأول:- 


مثال بسيط يوضح كيفيه عمل الفانكشن 


Module module1 
Function Avg(ByVal X As Double, ByVal Y As Double, ByVal Z As Double) As Double 
Return (Xx + ¥y + Z) / 3 
End Function 
Sub main() 


Console.WriteLine(Avg(10, 20, 30)) 
Console. ReadKey( ) 


End Sub 


End Module 


كما ترى فى هذا المثال انشئنا فانكشن يرجع بقيمه المتوسط الحسابى لثلاث ارقام 

قمنا بانشا فانكشن تحت الموديول بالاسم ع۷ا يحتوى على ثلاث مخازن 

× من النوع ال 1eطbںهط‏ الذی يحمل ارقام صحیحه وعشریه ویعود ایضا الفانکشن بقیمه من النوع ub1eںه0‏ 
Zو‏ ۷ و 

ويقود تعمل الأ يجفع ماقي الارن ا ى ق على فاه ليك رج اقرط الضاى ل 

ثم قمنا باستخدام هذا الفانكشن تحت الصب الرئيسى ٢ذجN×‏ طuك‏ 

واعطيناه القيم المدوونه فى الاكواد ليرجع بقيمه المتوسط الحسابى للقيم الثلاث 


هل فهمت مامعنى الفانكشن الان ؟ 
اذا تعالى بنا نطور من طريقه التعامل مع الفانكشن فى المثال القادم 


المثال الثانى - 


مثال لتوضیح کیفیه تعامل الفانكشن مع الدواره" 
Module module1‏ 
Function Avg(ByVal x As Double, ByVal y As Double, ByVal z As Double) As Double‏ 
Return (x + Yy + Zz) / 3‏ 
End Function‏ 
Sub main()‏ 
Dim M(3) As Double‏ 
Dim H As Double = 0‏ 
For H = 1 To M.Length - 1‏ 
Console.WriteLine("Enter The three No {O} : ", H)‏ 
M(H) = Console.ReadLine‏ 
Next‏ 
Dim L As Double = Avg(M(1), M(2), M(3))‏ 
Console.WriteLine(L)‏ 
Console. ReadKey( )‏ 
End Sub‏ 


End Module 


فى المثال السابق 

قمنا بعمل فانكشن يحتوى على ثلاث معاملات ويقوم بجمعهم وقسمتهم على عددهم ليخرج المتوسط الحسابى لهم 
ثم قمنا باستخدام هذا الفانكشن تحت الصب الرئيسى ولكن عن طريق كتابه المستخدم للثلات ارقام المراد اخراج 
المتوسط الحسابى لهم 

وتم ذلك عن طریق استخدام مصفوفه تحتوی على ثلاث اجزاء و دواره تقوم بعمل الاتی 

تعمل حتى نهايه اجزاء المصفوفه -1 فلماذا تكون -1؟ 

لان المصفوفات عموما تبدأ من الصفر فان كانت المصفوفه تحتوى على ثلاث اجزاء فهى تكون 

صفر > 2>1 >3 

بالتالى اصبح اربع اجزاء بالتالى سوف يحدث خطاً عند التنفيذ فلا بد من اضافه - 1 بجوار اجزاء المصفوفه كما 
ترى فى المثال السابق 

وتقوم الدواره بسؤال المستخدم عن الثلاث قيم حتى نهايه اجزاء المصفوفه 

ثم قمنا باستخدام الفانكشن على الثلات القيم التى فى اجزاء المصفوفه ووضعنا قيمه المتوسط الحسابى فى مخزن لا 
ثم امرنا الكونسول بعرض مافى المخزن 1 (المتوسط الحسابى للثلاث ارقام المدخله) 


-٠ثلاثلا المثال‎ 
OVERLOAD 


: Overload —lب المقصود‎ 

عندما نقوم بعمل فانكشن مثلا يقوم باخراج المتوسط الحسابى لثلاث ارقام ونفترض ان المستخدم يريد عمل متوسط 
حسابى لرقمين وثلاث ارقام فى نفس الوقت ؟ فما الحل ؟ 

الحل هنا هو استخدlم OverLoad‏ 

وهو اضافه فانكشن اخر بنفس الاسم وبنفس الوظيفه ولكن يحتوى على 2 معامل فقط وليس 3 فعندما يدخل 
الشستكتم قن بل كلى, الفاتن لذن نكري كى معانان عتا نفل المت دت قم يحل لى 
الفانكشن الذى يحتوى على ثلاث قيم انظر المثال القادم لتعرف اكثر ماهى المقصود الاوفر لود 


مثال على الاوفر لود dةما٣‏ م0۷" 
Module module1‏ 


Function Avq(ByVal x1 As Double, ByVal x2 As Double, ByVal x3 As Double) As Double 
Return (x1 + x2 + x3) / 3 
End Function 


Function Avq(ByVal x1 As Double, ByVal x2 As Double) As Double 
Return (x1 + x2) / 2 
End Function 


Sub main() 
فيمكننا الان ادخال قيمتين كما ترى'‎ 
Console.WriteLine(Avg(10, 2)) 
Console. ReadKey( ) 


' او ثلاث قیم‎ 
Console.WriteLine(Avg(10, 20, 30)) 
Console. ReadKey( ) 

End Sub 


End Module 


فى المثال السابق 

کما تری قمنا بانشاء 2 فانکشن بنفس الاسم ۸۷4 
ولکن احداهم یحتوی على 2 مخزن 

والاخر يحتوى على 3 مخازن 

وقمنا بتوضيح استخدامهم تحت الصب الرئيسى 
فيمكنك الان کتابه قیمتین او ثلاثه حسبما ترید 

ومن الممكن ايضا استعمال الاثتنين مع بعضهم البعض 


تنببه!!! 


اخى القارىء هل فكرت فى معنى الموجوده بجوار كل مخزن من مخازن الفانكشن 8۷۷21 

هل تعلم انه يمكنك تغير هذه الكلمه الى Byref‏ ؟ 

فهذه تحدد نوع المخزن ولكل منهم معنى وعمل معين 

Byval 

وهى التى قمنا باستخدامها فى كل الامثله السابقه والتى لاتقبل التحديث على قيم المخازن فهى تعود به كمان كان 


: ByRef 
فهى تقبل التحديثات على معاملتها ومخازنها وسوف نقوم بعرض اهميه استخدامها فى المثال القادم‎ 


مثال يوضح عمل ۴١٥۸ر8B‏ التى تقبل التحديثات بعكس ال 8۷21 ' 


Module module1 
Public Sub F(ByRef X As String) 


Dim SB As New Text.StringBuilder 
SB.Append(X) 
SB.Replace("http:\\", "") 
X = SB.ToString 

End Sub 


Sub main() 
Console.Write("Enter URL : ") 
Dim N As String 
N = Console.ReadLine 
F(N) 
Console.WriteLine(N) 


Console. ReadKey() 


End Sub 


End Module 


فی المثال السابق:- 
تأمل اخی القارىء فی الاکواد 
لقد قمنا بانشاء صب عمومی بالاسم ۴ يحتوى على مخزن × من النوع الذى يقبل التحديثات 6۷۸٥۴‏ 


يقوم هذا الصب بعمل الاتى 

ان كان عنوان الموقع يحتوى على القيمه //:م٤۲ط‏ يقوم بالتحديث عليه ويجعل العنوان بدونها 
ثم امرنا الكونسول تحت الصب الرئيسى 

ان يسال المستخدم عن كتابه عنوان موقعه مثلا فان كان المستخدم قد ادخل العنوان 

http://www. AGCACAdemy . com 

فيقوم الصب بالتحديث على العنوان وجعله كالاتى 

www. AGCACAdemy. com 


عزيزي القارىء قم بتجربه ان تجعل قيمه المخزن فى الصب العمومى من النوع 1ه8(۷ ولاحظ النتيجه 


اعتقدت انك قد توصلت الى معنى كلا منهم الأن !!! 
انتهت الوحده السابعه 


الوحده الثامنه:- 
EXCEPTION‏ 


اقغاب على الا خکطاء فی البرامج 


تهدف الوحده الى 

كيفيه التغلب على الاخطاء فى البرامج وكيف نتعامل مع البرنامج اذا حدث خطأً من المستخدم 
وكيفيه التعامل اذا حدث خطاً برمجی غير ملحوظ 

وذلك من خلال استخدام lئدlلa Err a4ئlدلlly Exception‏ 

ركز فى المثال القادم سوف اقوم بشرح بعض مزايا الدالتين وكيفيه استخدامهم 


المثال الاول :- 


فى هذا المثال سوف اتعمد ان اخطأً فى الكود لتلاحظ كيف نتغلب على الخطأً ' 
سوف اقوم بحجز مخزن من النوع العددى وادخل به قيمه نصيه ' 


Try 


Console.WriteLine("Enter Ur Name : ") 
Dim M As Integer = Console.ReadLine 


Catch ex As Exception 


Console.WriteLine("Erorr Because U Dim M as Integer And Enter Name As string PIs 
Redim M as string ") 


مزایا استخدامات الداله 10ا xcepع'‏ 

Console.WriteLine("The Error Msg : {0}", ex.Message) 'يقيقحفll‎ İطخلا لاظهار رساله‎ 
Console.WriteLine("The Error Number : {0}", Err.Number) 'Iطخll لمعرفه رم‎ 
Console.WriteLine("The Error Line : {0}", Err.Erl) لمعرفه رقم سطر الكود المحتوى على الخطاً"‎ 


مزایا استخدامات الداله ٣ع‏ ' 

Console.WriteLine("The Error Msg : {0}", Err.Description) 'Îطخll لاظهار رسال‎ 
Console.WriteLine("The GetExceptoin : {0}", Err.GetException) 'Îطخلl‎ Jيصافت للحصول على‎ 
Console.WriteLine("The HelpContext : {0}", Err.HelpContext) '“دعlunll‎ al للحصول على‎ 
Console.WriteLine("The Error source : {0}", Err.Source) Îطخll للحصول على مصدر‎ 
Console. ReadKey( ) 


End Try 


ملاحظات هامه جد ۱۱۱۱۱۱۱۱۱۱ 

عند الشعور بحدوث خطأً فی کود معین نکتبه ونرید استخدام الداله ۸٥م ×٥6‏ فلا بد ان تراعی التالی:۔ 
تکتب فی بدایه الکود ۷٣آ‏ 

ثم تكتب الكود المراد 

Catch ex As Exception تكتب‎ pû 

ثم تقوم بکتابه ماترید ظهوره عند حدوث الخطأ ان کانت رساله خطاً او غیره .. 

ثم تنھی الکود ب إ۲ Ed‏ 


فی المثال السابق :- 

قمنا بکتابه 1۲ فی اول الكود 

ثم امرنا الكونسول بسؤال المستخدم عن الاسم 

وقمنا بحجز مخزن من النوع العددى وامرناه بحمل القيمه التى يدخلها المستخدم 

اذا سوف يحمل المخزن اسم المستخدم ولكن الاسم عباره عن نص والمخزن من النوع العددى فعند اذا لابد ان يقف 
البرنامج لحدوث هذا الخطأ فلقد قمنا بالتغلب عليه كما تر بالمثال 

Catch ex As Excepİi0n 4ڊlٿڌڊ‎ |inژ‎ 

تم امرنا الكونسول ان يقوم باظهار بعد الرسائل كما شرحنا فى الاكواد 

ثم قمنا بانھاء الکود ب ٤۸4 ٣٣y‏ 


المثال الثانى . 
کیفیھ تولید الاخطاء بالداله ٣٣ع‏ ' 


Console.WriteLine("Enter UR Name :") 

Dim 1 As String = Console.ReadLine 

Console. ReadKey( ) 

لتوليد الخطأ الذى رقمه 8 وايقاف البرنامج عن العمل' (8) ۴٣٣.۴۸215٥‏ 


-اعلم اخى العزيز 
انه يو جد ملایین الاخطاء المحتمله وكل هذه الاخطاءِ مسجله فى الفيجوال ولكل خطاً رقم معين 


فى المثال السابق 

امرنا الكونسول بسؤال المستخدم عن الاسم 

وقمنا بحجز مخزن نصی وامرنا بحمل قیمه مایدخل المستخدم 

ثم امرنا البرنامج بالوقوف واظهار الخطأ الذى رقمه 8 المسجل فى الفيجوال 


هل تشعر بأن المثال السابق ليس له قيمه فى استخدامه فى البرمجه ؟ 
نعم اعلم ماتفكر به الان !!! ولكن دعنى اوضح لك ماهى اهميته فى المثال القادم 


المتال الثالث -٠‏ 


فکره عمل دواره للباسورد' 


Begin: 
Console.Write("Enter UR PassWord : ") 
Dim M As Integer = Console.ReadLine 
Dim C As Integer 
If C > 3 Then Err.Raise(8) 
If M <> "123" Then 


Console.WriteLine("invaild Password") 
C= C+1 
GoTo Begin 


End If 
Console.WriteLine("Welcome U have Enter Right Password ") 
Console. ReadKey( ) 


فى المثال السابق قمنا بعمل طريقه واقعيه 

فى اكثر البرامج وهو عند ادخال المستخدم كلمه السر اكثر من ثلاث مرات بطريقه خاطنئه نقوم بتفجير خطاً وايقاف 
البرنامج . 

اعتقد انك توصلت الى اهميه تفجير الاخطاء الان !! اذا استمع الى شرح الاكواد بدقه 


قمنا بعمل عنوان فى بدايه الكود بالاسم "عع81 ستعرف الان ماهى اهميه هذا العنوان 

ثم امرنا الكونسول ان يطلب من المستخدم ادخال كلمه السر وقمنا بحجز مخزن عددى يحمل القيمه المدخله 
ثم قمنا بحجز مخزن عددى ليقوم بحساب عدد المحاولات التى ادخل المستخدم فيها كلمه السر بطريقه خاطئه 
ثم قمنا بعمل جمله شرطيه تنص على (ان كان قيمه هذا المخزن العددى اكثر من ثلاث محاولات قم بتفجير خطأ) 
ثم قمنا بعمل جمله شرطیه اخری تنص على (ان كان قيمه كلمه السر المدخله غير هذه القيمه 123 اذا ) 
اجعل الكونسول يفيد المستخدم بان كلمه السر خطأ ثم يقوم بزياده المخزن العددى الى 1 (المحتوى على عدد 
المحاولات) لحساب المحاوله 

تم یقوم باعاده الکود مره اخری من بدایه العنوان ۸ ع8 

ليقوم بسؤال المستخدم مره اخرى عن كلمه السر ...... وهکذا 

فان ادخل المستخدم قيمه كلمه السر 123 اجعل الكونسول يعرض له رساله تفيد انه ادخل الباسورد بطريقه 
صحبحه 


("Welcome U have Enter Right PassWord ") 


هل توصلت الى فائده اضافه عنوان لکود معین مثل ہ 1ع م8 فى المثال السابق؟ 
هل توصلت الى اهميه تفجير الاخطاء ؟ 
هل لاحظت فکره کیف تقوم بعمل دواره للباسورد ؟ 


انتهت الوحده الثامنه :- 


الوحده التاسعه :- 


تهدف هذه الوحده -٠‏ 

الى شرح كيفيه التعامل مع دوال ال ٤ںم‏ غ ٤0u‏ uمم1‏ التى تتعامل مع الملفات داخل الويندوز 

ومن الممكن ان نختضر اسم هذه الذوال الى 10 

وتتعامل هذه الدوال مع الملفات والمجلدات من حيث انشاء ملجدات وانشاء ملفات وعمل نسخ للملفات والمجلدات 
وتبديل مجلد مكان مجلد اخر .... الخ 

أيضا كيفيه تشفير ملف معين وجعله خاص بمستخدم واحد فى الويندوز وكيفيه فك هذا التشفير 

وهذا عن طريق بعض الدوال. 


ایضا انشاء ملفات تكست والکتابه بدخلها 


ايضا تدمير جميع انواع الملفات سواء كانت صور فیدیو برامج... الخ 
واستعاده هذه الملفات الى طبيعتها مره اخرى وهى تعتبر ايضا من وسائل التشفير . 


: DirectoryInfo alll 

تقوم هذه الداله بالتعامل مع المجلدات من حيث اظهار اسماء المجلدات ووقت انشائها ووقت التعديل عليها من حيث 
نسخها او تعديل اسمها .... الخ. 

وتقوم ايضا بعرض محتويات مجلد او بارتشن معين من حيث المجلدات الموجوده به وتعرض مسار كل مجلد 
واخر مره تم الدخول عليه . 

ايضا تقوم بانشاء مجلد وحذفه ونقله من مكان الى مكان اخر. 


FileInfo aلlدلl‎ 

تستخدم هذه الداله لعرض الملفات التى بداخل مجلدات الداله DirectoryInfo‏ 

تقوم بع رضن اممك قايا وسار كل ملت واماد كلا مت وحاله هذا الملتة ان كان الملفت خفن إو ظاهر افر اء 
ايضا يمكننا بهذه الداله تشفير ملف معين عن باقى مستخدمين الويندوز ليصبح هذا الملف صالح للمستخدم الحالى 
فقط ومشفر عن باقى المستخدمين . 


lلئداlنa :SreamWriter‏ 
تستخدم هذه الداله للكتابه داخل ملفات التكست 


lئدall StreamReader‏ 
تستخدم هذه الداله لقراءه مابداخل ای ملف تکست 


انداa4l FileStream‏ 
یمکننا استخدمها فی تدمیر جمیع انواع الملفات سواء کانت صوره او فيدیو او برنامج ...الخ 
وايضا يمكننا اعاده ذلك الملفات الى طبيعتها مره اخرى 


دعنا نذهب الى الامثله لترى كيفيه العمل مع دJIy‏ | InputOutput‏ 
وماهی خصائص وممیزات هذه الدوال 


المثال الاول:- 


مثال يوضح كيفيه التعامل مع المجلدات من خلاJ‏ دJIy 'InputOutput‏ 


لابد من كتابه هذا الكود فى منطقه التصريحات العامه اى فوق الموديول قبل تطبيق اى مثال لتقوم باستيراد الدوال 10 Imports System.‏ 
Module module1‏ 


Sub main() 


Dim W As New DirectoryInfo("C:\\") 
Dim D() As DirectoryInfo = W.GetDirectories 
Dim i As Integer 

For i = 1 To D.Length - 1 


يقوم الكود التالى بجلب مسار كل المجلدات الموجوده فى البارتشن) ' 
Console.WriteLine("The Path Files into [C] :{0}", D(i).Ful1Name)‏ 


يقوم الكود التالى بجلب اسماء كل المجلدات الموجوده فى البارتشنع ' 
Console.WriteLine("The Files Name into [C] :{0}", D(i).Name)‏ 


يقوم الكود التالى بجلب وقت وتاريخ اخر مره تم الدخول فيها على المجلد 
Console.WriteLine("The Last Use Time Files into [C] :{0}", D(i).LastAccessTime)‏ 


يقوم الكود التالى بجلب وقت اخر مره تم فيها التعديل على ملفات داخل الع من حيث انشاء ملف بداخله وحذه ملف ..الخ' 
Console.WriteLine("The Last Edit Time into Files:{0}", D(i).LastWriteTime)‏ 


لجلب وقت انشاء المجاد' 


Console.WriteLine("The Creation Time Files into [C] :{0}", D(i).CreationTime) 


لعمل خط يفصل بين معلومات كل مجلد على شاشه الكونسول' 
Console.WriteLine ("== === ")(‏ 


Next 

Console. ReadKey( ) 
End Sub 

End Module 


قمنا فى المثال السابق باستدعاء الدوال فى منطقه التصريحات العامه عن طريق الكود Imports System.IO‏ 
لابد من كتابه هذا الكود فى منطقه التصريحات العامه (اى فوق الموديول) قبل تطبيق اى مثال على هذه الدوال 


ثم قمنا بحجز مخزن من النوع ٥اہاراهاع‌م,۵i‏ وامرناه ان يتعامل مع البارتشن :° 

ثم قمنا بحجز مصفوفه ايضا من النو ع Direct ory|٣٥‏ 

وذلك لتحمل معلومات المجلدات فى البارتشن _©:١١‏ 

ثم قمنا بعمل دواره تقوم بعرض 

معلومات المجلدات التى فى البارتشن :° 

من حيث اسماء هذه المجلدات ومسار كل مجلد وتاريخ ووقت انشاءه وتاريخ ووقت التعديل عليه 
ثم امرنا الكونسول بعمل خط يفصل بين معلومات كل ملف على شاشه الدوس 


المثال الثانى 


مثال يوضح كيفيه انشاء وحذف مجلد ' 
Imports System. IO‏ 


Module module1 


Sub main() 


طريقه الانشاء' 
Dim W As New DirectoryInfo("C:\\Malek")‏ 
التاكد من كون الملف غير موجودgl¥I‏ ' If W.Exists = False Then‏ 
يفيد الكود بانشاء الملف عند عدم تحقق جمله الشرط (ای عدم وجود ملف بنفس الاسم]) „.Creat€٥)(‏ 
Console.WriteLine("Creation Done ")‏ 
Console. ReadKey( )‏ 
Else‏ 


طريقه الحذف ' 
جمله شرطيه تفيد بانه لو وجد ملف بنفس الاسم فى نفس lلمlر' If W.Exists = True Then‏ 
يفيد الكود بحذف هذا الملف عند تحقق جمله الشرط ' wW.Delete()‏ 
Console.WriteLine("Deleted Done ")‏ 
Console. ReadKey( )‏ 
End If‏ 
End If‏ 


End Sub 
End Module 


فى المثال السابق قمنا بحجز مخزن نوعه ۴0٣1ر٣ماعه1r‏ وامرناه ان يتعامل مع المسار kعC:\\Ma1٥C‏ 
ثم قمنا بعمل جمله شرطيه للتأكد من وجود مجلد فى البارتشن € بهذا الاسم )1" ام لا 

تنص الجمله على انه عند عدم وجود هذا المجلد قم بانشاء 

ثم قمنا بعمل جمله شرطیه اخری تنص على انه ان وجد الملف قم بحذفه 

لنجمع مابين كيفيه انشاء المجلدات وكيفيه حذفها فى مثال واحد. 


المثال الثالث٠-‏ 
مثال على نقل مجلد من مكان لاخر' 


تذكير لك لاتنسى هذا الأكود <>' 10 Imports System.‏ 
Module module1‏ 


Sub main() 


Dim W As New DirectoryInfo("C: \\Meko") 
If W.Exists = False Then 
wWw.Create() 
Console.WriteLine("Creation Done ") 
Console. ReadKey( ) 


Else 


If W.Exists = True Then 
W.MoveTo("c:\\windows\Meko" ) 


Console.WriteLine("Moved Done ") 
Console. ReadKey( ) 
End If 
End If 
End Sub 
End Module 


فى المثال السابق 

قمنا او لا بانشاء مجلد بالاسم ۳٥٥‏ فی البارتشن ٤‏ کما فعلنا فی المثال الثانی 

ثم قمنا بعمل جمله شرطيه تنص على انه عند وجود هذا المجلد قم بنقله الى المسار 

C:\\windows \Meko 

ومن الممكن ايضا ان نقوم بنقله مع تغيير اسمه عن طريق كتابه المسار الذى سيتحرك اليه هكذا 
اسم المجلد| C: \ \w1 dows‏ 


المثال الرابع:- 
متال يوضح كيفيه التعامل مع الملفات الى بداخل مجلدات ال Directory1I.fo‏ 


Imports System. IO 
Module module1 


Sub main() 


Dim W As New DirectoryInfo("C:\\Windows") 
Dim F() As FileInfo = W.GetFiles 
Dim I As Integer 


For I = 1 To F.Length - 1 
Console.WriteLine("The Name :{0}", F(1).Name) ' لمعرفه اسم الف‎ 
Console.WriteLine("The Path :{0}", F(1I).Fu11IName) ' لمعرفھمسار الف‎ 
Console.WriteLine("The Extention :{0}", F(1). Extension) ' لمعرفه امتداد الف‎ 
Console.WriteLine("The Attributes :{0}", F(1).Attributes) ' IY لمعرفمحاله الملف مخف ام‎ 
Console.WriteLine ("=== "( 
Next 
Console. ReadKey( ) 


End Sub 
End Module 


قمنا بحجز مخزن من النوع ۴0٣1ر٣ماععم٣ة0‏ تم امرناه التعامل مع المسار التالى كسمل 1لا\:C‏ 

ثم قمنا بحجز مصفوفه من النوع ۴11٥1,۴0١‏ لتحمل مواصفات الملفات التى بداخل المجلد ءس0ل٣‏ 1اا 

ثم قمنا بحجز مخزن عددی لانشاء دواره به 

تقوم هذه الدواره بعرض خصائص الملفات التى بداخل المجلد كما شرحنا فى الكود اعلاه 

ثم امرنا الكونسول بوضع خط (-----) يفصل بين معلومات كل ملف من الملفات الموجوده فى المجلد كسمل١‏ 1لا 


المثال الخامس :- 


مثال يوضح كيفيه عمل تشفير لملف معين عن باقى مستخدمين الويندوز' 


Imports System. IO 
Module module1 


Sub main() 


طريقه تشفير الملف' 
Console.Write("Enter The File Path U like To Encrypt: ")‏ 
Dim Path As String = Console.ReadLine‏ 
Dim F As New FileInfo(Path)‏ 
If F.Exists = True Then‏ 
هذا هو كود التشفير' () ٤‏ مypآ۴F.Encr‏ 
Console.WriteLine("Done!")‏ 
Console. ReadKey( )‏ 
Else‏ 
If F.Exists = False Then Console.WriteLine("The File Not Exists")‏ 
Console. ReadKey( )‏ 


End If 


فى المثال السابق 

امرنا الكونسول ان يسأل المستخدم عن كتابه مسار الملف الذى يريد تشفيره 

ثم قمنا بحجز مخزن نصی وامرناه ان يحمل قيمه ما ادخله المستخدم (المسار) 

ثم قمنا بانشاء مخزن من النوع ۴11٥1١۴0‏ ويتعامل مع المسار الذى ادخله المستخدم 

ثم قمنا بعمل جمله شرطيه تنص على ان كان الملف موجود فى المسار صحيحا كما ادخله المستخدم قم بتشفيره 
ثم انشأنا جمله شرطيه اخرى تنص على انه عند عدم وجود الملف فى المسار المحدد اظهر رساله تفيد 

ثم نأتى الى طريقه فك التشفير 

سيكون نفس كود التشفير ولكن نضع ()†صF.Decryp‏ بıدل F.Encrypt ja‏ 

تابع معی ا 


طريقه فك التشفير عن الملف' 


Console.Write("Enter The File Path U like To Encrypt: ") 
Dim Path As String = Console.ReadLine 
Dim F As New FileInfo(Path) 
If F.Exists = True Then 
۴F.Decrypئ))( هذا هو كود فك التشفير عن الملف'‎ 
Console.WriteLine("Done!") 
Console. ReadKey( ) 


Else 
If F.Exists = False Then Console.WriteLine("The File Not Exists") 
Console. ReadKey( ) 
End If 
End Sub 
End Module 


المثال السادس - 


مثال يقوم بعرض مجلدات وملفات مابداخل هذه المجلدات فی مسار معين' 


Imports System. IO 
Module module1 
Sub main() 


Dim WinDire As New DirectoryInfo ("C:\Windows") 
Dim Drs() As DirectoryInfo = WinDire.GetDirectories 


Dim F() As FileInfo 
Dim B As Integer 
Dim I As Integer 
On Error Resume Next ' الويندوز من محمى ملف تواجد اذا البرنامج وقوف لعدo وضle تم‎ 
For I = 1 To Drs.Length - 1 

Console.WriteLine (Drs (I) .Name) 

Console.WriteLine ("- === "( 

F = Drs(1).GetFiles 

For B = 1 To F.Length - 1 

Console.WriteLine(F(B) .Name) 


Next 
Next 
Console. ReadKey() 


End Sub 
End Module 


رکز کویس الکود ده غریب شويه عليك 

قمنا بحجز مخزن من النوع ۴0"١۷1٣هاعع٣01‏ وامرناه التعامل مع المسار sسwتC:\wWind‏ 

ثم قمنا بعمل مصفوفه من النوع (1٣٥٠٤٤0٥٣۷1١۴٥‏ تقوم بحمل المجلدات التى بداخل المسار 

ثم قمنا بحجز مصفوفه اخری من النوع ۴11٥1,۴٥0‏ لتحمل بيانات الملفات التى بداخل كل مجلد من المجلدات 
وهی عمل دوارتین بداخل بعض واحده تعرض المجلدات والاخری تعرض مابداخل کل مجلد منھم 

ولكن اذا وجد ملف محمى من الويندوز سوف يقوم بايقاف البرنامج واظهار خطاً 

وللتغلب على هذه المشكله لابد من وضع الكود 

On Error Resume Next 

ای عند وجود خطأً تجاهله واذهب الى مابعده 


المثال السابع - 


سوف نتناول فى هذا المثال بعض الدوال الاخرى التى تتعامل مع الملفات والمجلدات 
وهی دوال منفصلە عن دJIg InputOoutput I‏ 

Imports System. 10 دوكأl‎ aباتكل اذا لانحتاج‎ 

من هذه الدوال 


اأدا4i :MkDir‏ 
تقوم هذه الداله بانشاء مجلدات فی مسار معین 


اiدا4l Rename‏ : 
تستخدم هذه الداله فى تغير اسم المجلدات 


:RmDir a4لادلا‎ 


الداله 111): 
تستخدم هذه الداله لمسح ملف ولیس مجلد رکز کویس 


:CurDir a4iادئلا‎ 


تابع معى المثال الاتى لتعرف كيفيه استخدام كل داله من هذه الدوال 


مثال يحتوى على دوال اخرى تتعامل الملفات والمجلدات ' 


Module module1l 


Sub main() 
MkDir("c: \\Meko") ' لانشاء مجلد‎ 
Rename("C:\\Meko", "C:\\Malek") 'نيza‎ dجم لتغيي اسم‎ 
RmDir ("C:\\Malek") ' لمسح مجلد معين‎ 
Ki1ll("c:\\dsn.txt") ' لمسح ملف معين‎ 


يفيد الكود الحصول على مسار المجلد المحتوی على البرنامج الذى قمنا بتنصميnم+ Dim A As string = CurDir()‏ 
Console.WriteLine(A)‏ 
Console. ReadKey( )‏ 


End Sub 
End Module 


المثال الثامن:- 


مثال يوضح كيفيه الكتابه بداخل ملفات التکست من خلاJ‏ |— 'streamWriter‏ 


Imports System. IO 
Module module1 


Sub main() 
Dim Sw As StreamWriter = File.AppendText("C: \\AgC.Xخ")‎ 'oرم‎ Jک4فاضالا لانشاء ملف يقبل‎ 


Console.WriteLine("Enter UR Name: ")‏ 
Dim M As String = Console.ReadLine‏ 
للكتابه داخل الملف بداخل سطر مستJa‏ ' sSw.WriteLine (M)‏ 
Sw.WriteLine("--------- )‏ 
لعمل تحديت على البيانات داخل الملف واغلاقه' ()ع105٤.۷«؟‏ 


End Sub 
End Module 


فى المثال السابق 

قمنا باستدعاء دوال ©| فى منطقه التصريحات العامه 
Imports System.lIO‏ 

ثم قمنا باستعمال الداله S1۲47 W۲! 1٥۲‏ تحت الصب الرئیسى 


عن طريق حجز مخزن نسخه منها عن طريق الكود 
Dim Sw As SitreamWriter‏ 


وجعلناها تنشأً ملف تكست على المسار ».ع C:\\Ag‏ 

وهذا الملف يكون قابل للاضافه كل مره (اى عند تشغيل البرنامج كل مره يضيف على البيانات القديمه لهذا الملف) 
ومن الممکن عمل ملف قابل للاضافه کل مره بطریقه اخری 

Dim Sw As New SireamWriter("C\MAgc.txt", True) 

والمعنی هنا ای قم بحجز مخزن مj gill‏ ع Stream Writer‏ 

واجعل قیمه الاضافه بداخلھ کل مرہ مںإآ 


ومن الممكن عمل ملف غير قابل للاضافه (اى كل مره يحذفه وينشأً ملف جديد) وذلك عن طريق الكود التالى 
Dim Sw As New SitreamWriter("C:\Agc.txt", False)‏ 

والمعنی هنا ای قم بحجز مخزن gill ja‏ ع Stream Writer‏ 

واجعل قیمه الاضافه بداخله کل مره هیاھ۴ 

هكذا يصبح الملف غير قابل للاضافه ففى كل مره يعمل فيها البرنامج يقوم بحذفه وانشاء ملف غيره بنفس الاسم 


ثم امرنا الكونسول ان يطلب من المستخدم اسمه عن طريق الكود 


Console.WriteLine("Enter UR Name: ") 


ثم قمنا بحجز مخزن نصى ليحمل القيمه المدخله من المستخدم عن طريق الكود 
Dim M As String = Console.ReadLine‏ 

ثم امرنا المخزن ۷W؟‏ 

بكتابه ما بقيمه المخزن النصى اN[على‏ سطر مستقل فى ملف التكست 

ثم بعمل خط (----) فى سطر مستقل فى ملف التكست ليفصل بين الكلام عن طريق الكود 
Sw.WriteLine(M)‏ 

Sw.Write Line ("--------- ۳ 


ثم امرنا المخزن 8۷ ان يقوم بعمل تحديث على الملف ويغلقه عن طريق الكود 
Sw.Close‏ 


ومن الممكن عمل تحديث على البيانات داخل ملف التكست بدون اغلاقه وذلك عن طريق كتابه الكود التالى 
Sw.Flush‏ 


الأن عرفنا كيف نقوم بالكتابه داخل ملفات التكست 

يتبقى لنا كيفيه عرض مابداخل ملفات التكست 

تابع معى... فى المثال القادم سوف اشرح لك 

كيفيه قراءه مابداخل ملفات التكست وعرض هذه البيانات على شاشه الكونسو 


المثال القاسع:- 
STREAM READER‏ 


مثال يوضح كيفيه الكتابه بداخل ملفات التکست من خلال ا 'streamReader‏ 
Imports System. IO‏ 


Module Module1 
Sub MAIN() 


Dim Sr As StreamReader = File.OpenText("C: \\Agc. tx") 'تٽصكتll لفتح ملز‎ 
Dim H As String = Sr.ReadLine ' oءlرal الملف من واحد سطر‎ 
Console.WriteLine(H) 

Console. ReadKey( ) 


End Sub 
End Module 


فى المثال السابق 

قمنا بحجز مخزن من النوع Sire2 08٥26۲‏ 

وامرنا بفتح ملف التكست (الذى تم انشائه فى المثال الثامن) عن طريق الكود 
Dim Sr As StreamReader = File.OpenText("C:\\Agc.txXt"‏ 


ومن الممكن فتح الملف بطريقه اخرى عن طريق الكود 
Dim Sr As New StreamReader("C:\\sgc. txt")‏ 


ثم قمنا بحجز مخزن نصى وجعانا المخزن القارىء من الملفات ان يضع به اول سطر من الملف عن طريق الكود 
Dim H As String = Sr.ReadLine‏ 
فان ReadLine alll‏ 


تقوم بقراءه اول سطر من الملف 
ومن الممكن ايضا ان نقرا كل مافى الملف بهذه الداله ولكن عن طريق دواره 


تابع معی فکره الدواره NE‏ 


Dim C As String 

Do While Not Sr.EndOfStream 
C = Sr.ReadLine 
Console.WriteLine(C) 

Loop 


تقوم هذه الدواره بقراءه سطر واحد فى كل لفه حتى تصل الى نهايه الملف 


واذا اردنا ان نقرأً كل مافى الملف بدون دواره يكون عن طريق الكود التالى 
Dim HAs String = Sr.ReadToEnd‏ 


فان الدlلa ReadToEnd‏ 
تقوم بقراءه كافه البيانات فى الملف حتى نهايته 


ومن الممكن ايضا ان نحصل على ارقام الاسكى لكل حرف فى الكلمات المكتوبه داخل الملف عن طريق الكود 
Dim B As String = Sr.Read‏ 
فان الداله Read‏ 


تقوم بجلب ارقام الاسكى لكل حرف من حروف الكلمات المكتوبه داخل الملف 
اذا اردت ان تعرف ماهى ارقام الاسكى راجع (الوحده الخامسه) فى تشفير الرسائل 


المثال العاشر:- 
FILE STREAM‏ 


تدمیر الملفات"- × 

قبل ان نبد فى شرح ذلك الجزء لابد ان تعلم 

ان اى ملف فى العالم يتعامل من الحاسب الالى فهو يتكون من الارقام( 1وصفر) 
وتکون هذه الارقام مرتبه بطریقه معینه فی کل ملف 

انظر الصوره التاليه 


فهذه عباره عن صوره توضيحیيه لترتيب البايت لملف معين 

فاذا اختلفت الترتيبه لهذا الملف اصبح الملف معطوب ولايصلح للعمل 

فاذا قمنا باعاده ترتيبها كما كانت عاد الملف الى طبيعته 

وهذه طريقه من طريق التشفير للملفات 

من الممكن ان نستخدمها فى برامجنا ولا نستغنى عنها فمن الممكن ان نصمم برنامج 

متصل بقاعده بيانات معينه ونجعله عند الاغلاق يقوم بتدمير قاعده البيانات لكى لا يطلع عليها احد 
تم عند تشغيل البرنامج يقوم باعاده ترتيب البايت الخاص بها كما كان لتعمل بطبيعتها 

فهذه فكره من افكار الحمايه .... وتختلف الافكار كلا على حسب طريقته 


مارأيك اذا قمنا بتغيير ذلك الترتيبه؟ 
لصوره مثلا ونرى النتيجه سويا !!! 


0 


تابع معی ت 


مثال يوضح کيفیه تدمیر الملفات من خلال ال ream‏ ئ۴i1eS‏ ' 


Imports System. IO 
Module Module1 


Sub main() 
Dim FS As New FileStream("c:\\Malek. jpg", FileMode. Open) 
Dim H(2) As Byte 
Dim F(2) As Byte 
FS.Read(H, 0, 2) 
FS.Seek(-2, SeekOrigin.End) 
FS.Read(F, 0, 2) 


FS.Seek(-2, SeekOrigin.End) 
FS.Write(H, O, 2) 


FS.Seek(@, SeekOrigin. Begin) 
FS.Write(F, O, 2) 
FS.Close() 
Console.WriteLine("Done") 
Console. ReadKey( ) 

End Sub 


End Module 


فى المثال السابق 
قمنا بحجز مخزن من النوع فايل ستري e2۳‏ ٤5م‌۴11‏ 
وامرناه ان يقوم بفتح الصوره بالفايل مود ليتعامل مع البايت لها( التى على المسار التالى) عمز.)عC:\\Ma1٥C‏ 
وذلك عن طريق الكود 
Dim FS As New FileStream("c:\\Malek. jpg", FileMode.Open‏ 


ثم قمنا بانشاء مصفوفتين من النوع بايت (الذى يحمل البيانات التى نوعها بايت) 
وكلا من المصفوفتين يحتوى على جزئين وذلك لتحمل كل مصفوفه منهم حزئين من ترتيبه البايت للصوره 
او من الممكن ان نزيد من اجزائها وذلك حسبما يريد المصمم. 


ثم امرنا مخزن الفايل استريم ان يضع اول جزئي من الترتيبه فى المصفوفه ۲4 
FS.Read(H, O, 2)‏ 


ثم امرناه ان يتحرك الى اخر الترتيبه ويرجع خطوتين 


FS.Seek(-2, SeekOrigin.End) 


ثم امرناه ان یضع اخر اتنین بایت من الترتیبه فى المصفوفه ۴ 
FS.Read(F, O, 2)‏ 


اصبح الان المصفوفه ۲١‏ تحمل اول 2 بايت فى الترتيبه 

والمصفوفه ۴ تحمل اخر 2 بايت فى الترتيبه 

والان لکی نقوم بتدمیر الصوره علینا تبدیل مافی کل مصفوفه مکان الاخری (اى تبديل اول اتنين بايت مع اخر 
اتنین بایت ). 


تابع معى..... ولاتسهى !!!! 

ثم امرنا المخزن فايل ستريم بالذهاب الى اخر الترتيبه والرجوع خطوتين 
ثم کتابه ماتحمله المصفوفه ۲4 

FS.Seek(-2, SeekOrigin. End) 

FS.Write(H, O, 2) 


ثم امرناه بالذهاب لبدايته الترتيبه وان يضع بها ماتحمله المصفوفه ۴ وان يغلق الملف 
FS.Seek(O, SeekOrigin.Begin)‏ 

FS.Write(F, O, 2) 

FS.Close() 

ثم امرنا الكونسول ان يظهر رساله بانه تم التدمير 
Console.WriteLine("Done™"‏ 


انظر الى النتيجه حين اقوم بفتح الصوره 


¥ Print ¥ E-mail Burn ¥ 


Windows Photo Viewer can't open this picture because either Photo 
Viewer doesn't support this file format, of you don't have the latest 


updates to Photo Viewer, 


هكذا قد قمنا بتدمير الصوره 
فانك عند تشغیل المثال مره اخری سوف يقوم بعکس الترتیبه مره اخری 
ليعود كل بايت الى مكانه الصحيح فتعمل الصوره 


انظر الى النتيجه حين قمت بتشغيل البرنامج مره اخرى 
E Mole - RE PRO ENE ES HE EN‏ 1 


File: FF Print ™- E-mail TL Ci a i 


والسوال هنا 
لماذا عادت الصوره لطبيعتها مره اخرى ؟ 
وكيف اجعلها لا تعود لطبيعتها الا بأمر معين منى ؟ 


الاجابه !!! 

اولا : عادت الصوره لطبيعتها عند تشغيل البرنامج مره اخرى وذلك لان الاکواد قامت بعکس ماقامت به اول مره 
فعاد كل بايت الى طبيعته فى ترتيبه الصوره وذلك يرجع لانها تتحرك بمقدار ثابت داخل الترتييه وهو 2 

لان کل مصفوفه تحتوی على جزئین وتقوم بحمل 2 بایت ووضعهم فی مکان ثابت 

وهذه هى فكره تدمير قاعده البيانات لبرنامج معين بعد اغلاقه واعادتا لطبيعتها عند تشغيل البرنامج 

کے ھی اراج روحت ای یگن عن رت فرآ: ساقي د ع اللات کنا د ا اا ۲٠‏ 


ثانيا : لكى تجعل الملف لايعود لطبيعته مع تشغيل البرنامج مره اخرى 
تجد الاجابه عليه فى المثال القادم تابع معى .... 


المثال الحادى عشر:- 


فى هذا المثال سوف نتعمق اكثر فى كيفيه تدمير الملفات 

سوف نجعله يقوم بتدمير الملفات عن طريق رقم معين ويعيد الملف الى اصله بنفس الرقم 
وذلك عن طريق جعل المستخدم يختار اجزاء المصفوفه 

تابع معى... لتصل اليك الفكره اكثر 


مثال يوضح كيفيه تدمير الملفات برقم معين واعادتها لطبيعتها بنفس الرقم 


System. IO 


Imports 


Module Module1 


Function Encryption(ByVal Fn As String, ByVal L As Integer) As String 


If L > 20 Then 
Return "Choose Another No" 
End If 


If File.Exists(Fn) = False Then 
Return "File Not Found" 
End. TF 


Dim fS As New Filestream(Fn, FileMode. Open) 
Dim H(L) As Byte 

Dim F(L) As Byte 

fS.Read(H, O, L) 

fS.Seek(-L, SeekOrigin.End) 
fS.Read(F, O, L) 

fS.Seek(-L, SeekOrigin.End) 
fS.Write(H, O, L) 

fS.Seek(O@, SeekOrigin. Begin) 
fS.Write(F, @, L) 

fS.Close() 

Return "Done" 

Console. ReadKey( ) 


Function 
main () 
Console.WriteLine("Enter File Path") 


Dim A As String = Console.ReadLine 


Console.WriteLine("Enter Encryption No") 
Dim B As Integer = Console.ReadLine 


Dim S As String = Encryption(A, B) 
Console.WriteLine(S) 
Console. ReadKey( ) 


Sub 


End 


Sub 


End 


End Module 


فى المثال السابق 

قمنا بانشاء فانکشن یحتوی على 2 معامل 

المعامل الاول ع٣1٣‏ ٤ك‏ ء۸ ۴۸ من النوع النصى ليستقبل مسار الملف 

والمعامل ٣عمعع†م1‏ كه 1 من النوع العددى ليحمل قيمه اجزاء المصفوفتين 

التى سوف نتنقل بها بين ترتيبه البايت كما شرحنا فى المثال السابق 

يعود هذا الفانكشن بقيمه نصيه. تم انشاءه عن طريق الكود 

Function Encryption(ByVal Fn As Strin ByVal L As Integer) As 
String 


تم وضعنا بداخله عده شروط لتلاشى الاخطاء 

الشرط الاول لو كان قيمه المعامل 1 اكبر من 20 

عد برساله للمستخدم تفيد بان يختار رقم اقل من ذلك 

If L > 20 Then 

Return "Choose Another No" 

وفائده هذا الكود انه يجبر المستخدم بعدم الزياده فى اجزاء المصفوفهلكى لا تكون اكبر من عدد خلايا ترتيبه 
البايت للملف فيحدث خطاً ويتوقف البرنامج عن العمل . 


ثم وضعنا شرط اخر 

لو كان الرقم اقل من 20 والملف غير موجود بالمسار الذى وضعه المستخدم فی المعامل ۴۸ 
قم باظهار رساله تفيد بان الملف غير موجود 

End If 

If File.Exists(Fn) = False Then 


Return "File Not Found" 


اذا قم بالتنقل بين ترتيبه البايت للملف وتغيير هذه الترتيبه 
على حسب الرقم المدخل لك والمحمل فى المعامل 1 كما حدث فى المثال السابق 
End If‏ 
Dim fS As New FileStream(Fn, FileMode.Open)‏ 
Dim H(L) As Byte‏ 
Dim F(L) As Byte‏ 
fS.Read(H, O, L)‏ 
fS.Seek(-L, SeekOrigin.End)‏ 
fS.Read(F, O, L)‏ 
fS.Seek(-L, SeekOrigin.End)‏ 
fS.Write(H, O, L)‏ 
fS.Seek(O, SeekOrigin. Begin)‏ 
fS.Write(F, O, L‏ 


fS.Close() 


Return "Done" 

Console. ReadKey() 

لاحظ هذا الكود السابق 111 

هو نفس كود التدمير فى المثال السابق ولكن يختلف عنه 
فی اننا وضعنا مافی المعامل L‏ 

بدلا من وضع الرقم الثابت 2 

انتهت الوحده التاسعه 


الوحده العاشره :- 


تهدف هذه الوحده الى :- 

كيفيه التعامل مع بيئه البرنامج من حيث مثلا ... الحصول على مسار البرنامج او نقل ملفات البرنامج من مكان 

ن خر ١‏ الحضرل كى ام جار كرتر الشننة علا الرناج إي الحضرل عى انه الستك الحا 
لخهاز الكو تر الى الحضرل على عة التروسسو ر ات الستك هة فى الجا لي الحصرل على كلذو تامج ان 

کان اوف لاین او اون لاين .... الخ 

او عمل حمایه للبرنامج بحيث لايعمل الا بعد اعطاءه امر معين من ال CMD‏ 

وهى تعتبر شاشه الدوس الخاصه بالويندوز 


الصوره التاليه توضح شاشه الدوس الخاصه بالويندوز ( 0 )°C1‏ 


E Administrator: CA Windows\system32\cmd,exe 


Microsoft Hindows [¥ersion 6.1.7681] 
Copyright (e} 288a Microsoft Corporation. AlI rights reserved. 


IC: iUsersiCaptianHalek x 


ويتم الحصول على هذه الشاشه من خلال الدخول الى المسار الطبيعي لها وهو 
C: \Windows\System32‏ 

او بالطريقه الاسهل من قائمه استارت 

Start >> Run >> نكتب إلامر‎ Cmd 


اذا تعالى بنا فى المثال الاول نتعلم كيفيه حمايه البرنامج عن طريق عدم تشغيله الا بعد اعطاءه امر من شاشه 
الدوس الخاصه بالويندوز 


المثال الأول - 


ل ق ا ا 

وهى عدم تشغيل البرنامج الا بعد اعطاءه امر معين من شاشه الدوس الخاصه بالويندوز وان لم يتم اعطاءه هذا 
الامر يظهر البرنامج خطاً معين 

لكى يقوم بتشتيت فكر الكراكرز الذين يقومون بفك الحمايه عن البرامج فعند ظهور الخطأً ف البرنامج يظن ان 
البرنامج به اخطاء وغير صالح للعمل 

ویتم عمل ذلك الحمايه عن طريق داله من دوال بيئه البرنامج وتسمی هذہ lالئدانa4 CommandLine‏ 

اخى القارىء من فضلك اترك كل تركيزك مع هذا المثال لانه من اهم الامثله التى وردت فى هذا الجزء من الكتاب 
وهی فکره جدیده لحمایه البرامج من الکراکرز 


مثال بسیط يوضح کیفیه عمل حمایه بالکوماند لاین' 


Dim X As String = Environment. CommandLine 
If Instr(X, "Agc") > O0 Then 


Console.WriteLine("Welcome to Agc Academy") 
Console. ReadKey( ) 
End 

End If 

Err.Raise(9) 


فى المثال السابق 

قمنا بحجز مخزن نصی وجعلناه مساویا للکوماند لاين فى بيئه llبرnliج (Environment. Comma n dL ine)‏ 
معنى ذلك اننا دخلنا فى محتويات البرنامج نفسه انظر الى ماحدث بعد ذلك 

قمنا بانشاء جمله شرطیه تنص على انه اذا وجد فی هذا المخزن النصى كلمه ع۸ 

قم بکتابه رساله تفيد بآنه تم الدخول الى البرنامج بنجاح 

وان کانت لا تحتوی على کلمه ع۸ 

قم بتفجير الخطأً 9 

اذا كيف ندخل الى محتويات البرنامج ؟ ونجعله يحتوى على هذه الكلمه ليعمل ؟ 

الإاجابه هى الدخول الى شاشه الدوس واعطاء الامر بطريقه معينه 


قف هنا !! 
کا کا نشی انل ل قرع 
اولا : قم بکتابه هذه الاکواد جیدا وافهم معنی کلا منهم 


ثانیا : قم باستخلاص البرنامج وتحویله ۴×۴ 

وذلك عن طريق تحويله اولا الى مئ12٥۸‏ 

تم من القائمه الرئيسيه لبرنامج الفيجوال 

Build >> Build Project 

الان البرنامج تم استخلاصه اذهب اليه فى مجلد المشروع سوف تجده فى المجلد 
Relase‏ 


اليك بعض الصور التوضيحيه بالخطوات لکيفيه تحویل البرنامج الى ع٤×٤‏ 


Debug Team Data Architecture Test Tools Analyze Window Help 


(ee 


ٍ 
f Modulelvb" x fi Build project 


Publish project 
Run Code Analysis on project 


EModule modu le1 
El Sub main( ) 


Dim X As String = Environment .CommandLine 
If InStr{(X, "Agc"j > @ Then 


Console.WriteLine ("Welcome to Agc Academy") 
Console. ReadKey{ ) 
End 
End If 
Err.Raise(9) 
1 End Sub 
| End Module 


هذا هم تم كحويل البرنامج 
الان اذهب الى مجلد المشروع فى المجلد 81۸ 


ستجد البرنامج بأسم4 >> Bin >> Relase‏ 
قم بتشغيله الان !!! سوف يعطيك خطأ كأن البرنامج معطوب ولا يعمل وذلك لاننا لم نعطيه القيمه 


Agc 
-١ انظر الصوره التاليه‎ 


reference riot set to 


an instance of an object. 
gt project .mOdilet.maain(]} ûn DO: \Rytprogetct projet tNmodilelivhbr line 2154 


د 


project has stopped working 


Windows Is checking for a solution to the problem... 


لابد ان نعطیه القیمه عع 
فی شاشه الدوس الخاصه بالویندوز لکی يعمل بشكل طبيعي 


انظر الصوره التاليه 


| Shut down F | 


فى الخطوه الاولى : 
قمنا بتشغیل شاشه الدوس من قائمه ستارت كما شرحنا مسبقا 


فى الخطوه الثانيه : 

قمنا بکتابه مسار البرنامج فی شاشه الدوس كما ترى فى الصوره 

ثم قمنا بکتابه اسم البرنامج والکلمه السریه بجوار اسمه 

فکما تری اسم البرنامج عندىی P٣٥٥٤٥٤٤‏ وقمت بکتابه ع۸ بجواره 
وکانت النتیجه کما تری 


Welcom to Agc Academy 
ای تم عمل البرنامج بنجاح‎ 


هذه كانت طريقه الحمايه للبرنامج 
اخى القارىء اتمنى ان تكون قد قمت بتطبيق هذاالمثال جيدا وفهمت كل مافيه من اكواد وخطوات 
والان دعنا ننتقل الى توضيح باقى عمل دوال بيئه البرامج فى الامثله القادمه 


Programs (1) 


„jl See more results 


| Cmd 


المثال الثانى 


ئ4 CurrentDirectory‏ : 
تستخدم فى عرض مسار المشروع ونقل المشروع من مكان الى اخر 
تابع معى المتال لتعرف كيفيه استخدامها 


مثال يوضح كيفيه نقل المشروع من مكان لاخر' 


لعرض المسار الحالى للبرنامج' 


Dim M As String = Environment .CurrentDirectory 
Console.WriteLine(M) 


لنقل البرنامج من مساره الاصلى الى البارتشن ' 


Environment. CurrentDirectory = "C:\\" 
Dim x As String = Environment .CurrentDirectory 


Console.WriteLine(x) 
Console.WriteLine("The Project File Moved Done") 


Console. ReadKey() 


فى المثال السابق 
قمنا بحجز مخزن نصى وجعلناه مساويا بالداله التى تحمل مسار البرنامج 
ت مرت الكو يرل ان برض ماقي التخز ن على اة الذرن لر هرضن الععار الك ار 


Environment. CurrentDirector]y alll Iiرما ثم‎ 

بذلك قمنا بتغيير مسار البرنامج بنجاح 

ثم قمنا بحجز مخزن من النوع النصى 

وجعاناه مساوی بالداله التى تحمل مسار البرنامج بعد التغيير 

ثم امرنا الكونسول بعرض ما ف المخزن النصى ليعرض مسار البرنامج بعد التغيير 


المثال الثالث٠-‏ 


يضم معظم التعاملات مع بيئه البرنامج' 


Dim A As String = Environment .MachineName 'زlجئll‎ pul للحصول على‎ 
Console.WriteLine(A) 
Console.WriteLine ("=======================") 


Dim B As Integer = Environment.ProcessorCount 'jlجll للحصول عدد البروسيسورات ى‎ 
Console.WriteLine(B) 
Console.WriteLine ("=======================") 


Dim C = Environment.Version 'رlدصۈل| للحصول على رم‎ 
Console.WriteLine(C) 
Console.WriteLine ("=======================") 


Dim D = Environment. UserName 'زjودiيgll‎ Jlحلا للحصول على اسم المستخدم‎ 
Console.WriteLine(D) 
Console.WriteLine ("=======================") 


Dim E As String = Environment. HasShutdownStarted 'قلlغم لمعرفه حاله البرنامج يعمJ |م‎ 
Console.WriteLine(E) 
Console.WriteLine ("=======================") 


للحصول على مسار البرنامج الحالى تم شرحه4 مسڊ 'l Dim G = Environment.CurrentDirectory‏ 
Console.WriteLine(6)‏ 
Console.WriteLine ("=======================")‏ 


للحصول على حجم الميمورى للجهاز ' Dim H = Environment.WorkingSet‏ 
Console.WriteLine(H)‏ 

Console.WriteLine ("=======================") 

Console. ReadKey( ) 


ملحوظه !! 

لابد ان تقوم بتطبيق كلا من الاكواد السابقه جيدا 

کرت اام کرو 

لان القراءه وحدها لاتكفى التطبيق يزيد من تركيز المعلومه فى عقلك 


انتهت الوحده العاشره 


الوحده الحاديه عشر:- 
STRUCTURE‏ 


تهدف هذه الوحده الى : 
تعليم كيفيه هيكله المتغيرات والفانكشن و كل الاكواد المعروفه فى الفيجوال 
وکیفيه الاستفاده من هذه الهیكله وفائدتها فى البرمجه . 


يت اتشاء الاستراكشر أو اليكل قوق الصب الركيسى او تحته 
ولكن لابد ان يكون داخل الموديول ولك الاختيار فى انشاءه فوق او تحت الصب الرئيسى 


المثال الاول:- 


Module module1 


Structure Details 
Dim UserName As String 
Dim Password As String 
Dim Address As String 
End Structure 


Sub main() 


Dim D As Details 
Console.Write("Enter UserName: ") 
D.UserName = Console.ReadLine() 


Console.Write("Enter Password: ") 
D.Password = Console.ReadLine 


Console.Write("Enter UR Address: ") 
D.Address = Console.ReadLine 


Console.WriteLine(D. UserName) 
Console.WriteLine(D.Password) 
Console.WriteLine(D.Address) 
Console. ReadKey( ) 


End Sub 
End Module 


فى المثال السابق 

قمنا بانشاء هيكل بالاسم ء11 ه٠5‏ فوق الصب الرئيسى يحتوى على ثلاث مخازن من النوع النصى 
ثم قمنا باستخدامه تحت الصب الرئيسى عن طريق الجمله 

Dim D As Details 

ای قم بحجز مخزن من نوع الاستراكشر او الهيكل 

اصبح المخزن الان يحمل نسخه كامله من الهيكل بكل مخازنه 

ثم امرنا الدوس ان يسأل المستخدم عن اسمه ثم يقوم بوضع القيمه المدخله فى اول مخزن فى الاستراكشر 
ثم يسأل المستخدم عن قيمه الباسورد ويضعها فى المخزن الثانى من مخازن الاستراكشر 

ثم يسال عن رقم العنوان ويضعه فى المخزن الثالث من مخازن الاستراكشر 

اصبحت مخازن الاستراكشر الان تحمل القيم المدخله من المستخدم (الاسم والباسورد والعنوان) 

ثم امرنا الكونسول بعرض القيم التى بداخل كل مخزن من مخازن الاستراكشر 


المثال الثانى:- 
وهو عباره عن مال يوضح اهمیه الهیكله فى عمل برنامج يقوم بحساب النسبه المئويه والمجموع الكلى لطلبه فى 
مدرسه معینه تابع معی .... 


مثال لعمل هيكل يقوم بحساب النسبه المئويه والمجموع الكلى لطلبه المدارس' 
Module module1‏ 


Structure Student 


Dim RealName As String 
Dim Math As Double 

Dim Physics As Double 
Dim Chemestry As Double 
Dim Piolgy As Double 
Dim Total As Double 

Dim Percent As Double 


End Structure 


Sub main() 


Dim S As Student 
Console.Write("Enter Ur Real Name : ") 
S.RealName = Console.ReadLine 


Console.Write("Enter Ur Math Degree : ") 
S.Math = Console.ReadLine 


Console.Write("Enter Ur Physics : ") 
S.Physics = Console.ReadLine 


Console.Write("Enter Ur Chmestry Degree : ") 
S.Chemestry = Console.ReadLine 


Console.Write("Enter Ur Piolgy Degree : ") 
S.Piolgy = Console.ReadLine 


Dim T As Double 

T = S.Math + S.Physics + S.Chemestry + S.Piolgy 
S.Total = T 

Console.WriteLine("UR Total Degree : {0}", 7T) 


S.Percent = (T * 100) / 200 
Console.WriteLine("Ur Percent Degree : {0}%", S.Percent) 
Console. ReadKey( ) 
End Sub 
End Module 


فى المثال السابق 

قمنا بعمل بعمل هیکل بالاسم ٤۸٥ل S‌† Uu‏ 

يحتوى هذا الهيكل على مخزن من النوع النصى لوضع الاسم به 

وبه 6 مخازن اخرى من النوع العددى المزدوج الذى يقبل الارقام العشريه لادخال بهم قيم مجاميع المواد 
وحساب المجموع والنسبه المئويه لهذه المجاميع 


ثم قمنا باستخدام هذا الهيكل تحت الصب الرئيسى 

وذلك عن طريق حجز مخزن نسخه منه عن طريق الكود 

Dim S As Student 

اذا اصبح ذلك المخزن يحتوى على نسخه من الهيكل وكل مخازنه 

ثم امرنا الكونسول بسؤال المستخدم عن ادخال درجه كل ماده من المواد 
Math , Physics , Chmestry , Piolgy‏ 
ثم وضعنا كل قيمه من قيم المواد فى المخزن الموازى لها فى الهيكل 
ليصبح الهيكل محملا بقيم مجاميع المواد السابقه والتى ادخلها المستخدم 


ثم قمنا بوضع قيمه جمع مجاميع المواد فى مخزن عددى وجعاناه مساويا للمخزن المسئول عن المجموع الكلى 
للمواد فى الهيكل 
اذا اصبح مخزن المجموع الكلى فى الهيكل يحتوى على مجموع كل المواد التى تم اداخلها من المستخدم 


ثم الى المخزن الخاص بحساب النسبه المئويه لهذا المجموع 

افترضنا ان کل ماده من المواد مجموعھا النهائى هو 50 

اذا 4 مواد * 50 = 200 

يبقى الدرجه العظمى هى 200 

وبما ان النسبه المئويه تساوى المجموع الاساسى مضروبا فى 100 مقسوما على الدرجه العظمى 

لذلك قمنا بكتابه ذلك المعادله فى الكود 

S.Percent = (T * 100) / 200 

وتعنى هذه المعادله اى قم بضرب المجموع النهائى للطالب فى 100 ثم قم بقسمه الناتج على الدرجه العظمى 200 
لنحصل على النسبه المئويه 

ثم ضع ذلك النسبه المئويه فى المخزن الخاص بها فى الهيكل 

ليصبح الهيكل الان 

محملا بدرجه كل ماده من المواد و المجموع الكلى لهذه المواد والنسبه المئويه لهم 

وفی النهايه امرنا شاشه الکونسول بعرض کل هذه القیم 

ليحصل المستخدم على قيمه النسبه المئويه والمجموع الكلى له 

اعرف ان المثال طويل وصعب لدرجه معينه ولکن اذا قمت بتطبيقه اکثر من مره سوف تفهمه تعالی بنا نطول 
المتال اكثر تابع معى .... 


المثال الثالث-- 


نفس المثال الثانى ولكن عن طريق استخدام الفانكشن فى الهيكله وحساب التقدير للمجموع 


"Passed" 
"Good" 


Module module1 
Structure Student 


Dim RealName As String 
Dim Math As Double 

Dim Physics As Double 
Dim Chemestry As Double 
Dim Piolgy As Double 


Function T() As Double 

T = Math + Physics + Chemestry + Piolgy 
End Function 
Function P() As Double 

P = (T() * 100) / 200 


End Function 


Function Rating() As String 
If P() < 50 Then Rating = "Drop" 
If P() >= 50 And P() < 60 Then Rating = 
If P() >= 60 And P() < 80 Then Rating = 


If P() > 70 And P() > 80 Then Rating = "V.Good" 


If P() > 90 Then Rating = "Excellent" 


End Function 
End Structure 


Sub main() 


Dim S As Student 
Console.Write("Enter Ur Real Name : ") 
S.RealName = Console.ReadLine 


Console.Write("Enter Ur Math Degree : ") 
S.Math = Console.ReadLine 


Console.Write("Enter Ur Physics : ") 
S.Physics = Console.ReadLine 


Console.Write("Enter Ur Chmestry Degree : ") 
S.Chemestry = Console.ReadLine 


Console.Write("Enter Ur Piolgy Degree : ") 
S.Piolgy = Console.ReadLine 


Console.WriteLine("UR Total Degree : {0}", S.T) 
Console.WriteLine("Ur Percent Degree : {0}%", S.P) 
Console.WriteLine("Ur Rating: {0}", S.Rating) 
Console. ReadKey( ) 


End Sub 

End Module 
فى المثال السابق‎ 
يعمل نفس عمل المثال الثانی ولکن یزید عنه فی انه یقوم بحساب التقدیر ان کان جید او جید جدا او ممتاز اومقبول‎ 
الخ‎ ... 


وایضا يزيد عنه فی انه یستعمل الفانکشن تابع معى ...الشرح 
وارجو ان تضع كل تركيزك مع الشرح 


قمنا بانشاء هیکل بالاسم غ d٥‏ uںاغS‏ 

یحتوی على مخزن نصى ليحمل اسم الطالب 

و4 مخازن من النوع العددى المزدوج ليحمل مجموع كل ماده 
Dim RealName As String‏ 

Dim Math As Double 

Dim Physics As Double 

Dim Chemestry As Double 

Dim Piolgy As Double 


اذا اين المخازن التى تحمل المجموع الكلى والنسبه المئويه؟ 
الاجابه هى : لقد قمنا بانشاء فانكشن يقوم بحساب المجموع الكلى 
وفانكشن اخر يقوم بحساب النسبه المئويه 

وفانكشن اخر يقوم بحساب تقدير المجموع 


اليك التفاصيل 
الفانكشن الإول : لحساب المجموع الكلى 


Function T() As Double 


T = Math + Physics + Chemestry + Piolgy 
End Function 


يقوم هذا الفانكشن بجمع مجاميع المواد المحمله فى المخازن لنحصل على المجموع الكلى للطالب 


الفانكشن التانى : لحساب النسبه المئويه 


Function P() As Double 

P = (T() * 100) / 200 

End Function 

يقوم هذا الفانكشن بضرب القيمه الموجوده فى فانكشن المجموع الكلى (المجموع الكلى) فى 100 ثم يقوم بقسمه 
الناتج على الدرجه العظمى 200 

ليعود بقيمه النسبه المئويه للطالب 


الفانكشن الثالث : لحساب تقدير الطالب 

Function Rating() As String 

If P() < 50 Then Rating = "Drop" 

If P() >= 50 And P() < 60 Then Rating = "Passed" 
If P() >= 60 And P() < 80 Then Rating = "Good" 
If P() > 70 And P() > 80 Then Rating = "V.Good™" 
If P() > 90 Then Rating = "Excellent" 

End Function 


يحتوى الفانكشن على مجموعه من الجمل الشرطيه تنص على 

لو كانت قيمه فانكشن النسبه المئويه (النسبه المئويه) اصغر من %50 اذا التقدير راسب 

لو كانت قيمه فانكشن النسبه المئويه (النسبه المئويه) اكبر من اوتساوى %50 اذا التقدير ناجح 
لو كانت قيمه فانكشن النسبه المئويه (النسبه المئويه) اکبر من او تساوى %60 اذا التقدير جيد 
لو كانت قيمه فانكشن النسبه المئويه (النسبه المئويه) اكير من %70 اذا التقدير جيدجدا 

لو كانت قيمه فانكشن النسبه المئويه (النسبه المئويه) اكبر من 90 % اذا التقدير ممتاز 


هكذا كان الهيكل 

ثم قمنا باستعماله تحت الصب الرئيسى 

امرنا الكونسول ان يقوم بسؤال الطالب عن ادخال قيم درجات المواد ووضع كل قيمه فى مخزنها فى الهيكل 
ليصبح الهیکل محملا بمجموع کل ماده 

لیتم عمل کل فانکشن کما شرحنا مسبقا لیحمل کل منهم ناتجه 

تم امرنا الکونسول بعرض محتویات کل فانکشن منھم 

ليعرض لنا المجموع الكلى والنسبه المئويه والتقدير للطالب 


اخى القارىء الشرح طال ؟ اعرف لاننا قمنا بعمل برنامج كبير لحد معين 

من فضلك قم بقراءه الشرح اكثر من مره وتطبيق الاكواد لتحصل على ماتريد 

وقم بابتکار الاکواد وعمل آفكار مختلفه مثلا فكره عرض الكليات المتاحه عن طریق فانکشن مبنی على جمل 
شرطيه مثل فانكشن التقديرات وافكار اخرى من صميم مادرسناه فى الوحدات السابقه 

والان هيا بنا لنطور المثال اكثر من ذلك 


المثال الرابع:- 
نفس المثال الثالث ولكن يزيد عنه فى استعمال الصب داخل الهيكل ' 


Module module1 
Structure Student 


Dim RealName As String 
Dim Math As Double 

Dim Physics As Double 
Dim Chemestry As Double 
Dim Piolgy As Double 


Function T() As Double 
T = Math + Physics + Chemestry + Piolgy 
End Function 


Function P() As Double 
P = (T() * 100) / 200 
End Function 


Function Rating() As String 
If P() < 50 Then Rating = "Drop" 
If P() >= 50 And P() < 60 Then Rating = "Passed" 
If P() >= 60 And P() < 80 Then Rating = "Good" 
If P() > 70 And P() > 80 Then Rating = "V.Good" 
If P() > 9@ Then Rating = "Excellent" 

End Function 


Sub Display() 
Console.WriteLine ("=== 
Console.WriteLine("RealName: {0}", RealName) 
Console.WriteLine("Math: {0}", Math) 
Console.WriteLine("chmestry: {0}", Chemestry) 
Console.WriteLine("physics: {0}", Physics) 
Console.WriteLine("piolgy: {0}", Piolgy) 
Console.WriteLine("Total Degree: {0}", T) 
Console.WriteLine("Percent: {0}%", P) 
Console.WriteLine("Rating: {0}", Rating) 
Console.WriteLine ("=== 


End Sub 
End Structure 


Sub main() 
Dim S As Student 


S.RealName = "Meko" 
S.Math = 20 
S.Physics = 12 
S.Chemestry = 15 
S.Piolgy = 20 
S.Display() 
Console. ReadKey( ) 
End Sub 
End Module 


فى المثال السابق 

فنا قط ر یرد الى ك ماعن افقل اقلت الزيادد فى هذا المقالن افا شتا توضح اكراة اترک فى صب داخل الكل 
اى بدلا من وضعها فى الصب الرئيسى ... قمنا بانشاء صب فى الهيكل ووضعنا به هذه الاكواد 

بحيث يتم النداء عليها من الصب الرئيسى بدلا من كتابتها كلها فى الصب الرئيسى 

وها سيل علا الل كى تمت ارامح الضخده 

وخاصه عند وجود فریق عمل کبیر. 


قمنا بعمل ھیکل بالاسم SU d@ِ†‏ 

ثم قمنا بوضع مخازن به من النوع النصى للاسم والنوع العددى المزدوج لمجموع كل ماده 
ثم قمنا بانشاء فانكشن لحساب المجموع الكلى(تم شرحه ف المثال السابق) 

ثم قمنا بانشاء فانكشن اخر لحساب النسبه المئويه(تم شرحه ف المثال السابق) 

ثم قمنا بانشاء فانكشن اخر لحساب التقدير (تم شرحه ف المثال السابق) 


ثم قمنابانشاء صب ليحمل اكواد العرض على شاشه الكونسول ()رھة1مءذ0٥‏ طuںك‏ 
يحتوى هذا الصب بداخله اكواد عرض النتائج للطالب على شاشه الكونسول فهو يحمل اكواد تنص على 


عمل خط (-----) فى بدايه ونهايه شاشه الكونسول لعرض النتائج بينهم 
عرض اسم الطالب على شاشه الكونسول 

عرض درجه ماده الریاضه 

عرض درجه ماده الكيمياء 

عرضه در جه ماده الفیزیاء 

عرض در جه ماده البیولوجی 

عرض المجموع الكلى 

عرض النسبه المئويه 

عرض التقدير 

کما تری الاکواد 


Console.WriteLine ("=== === "( 
Console.WriteLine("RealName: {0}", RealName) 
Console.WriteLine("Math: {0}", Math) 
Console.WriteLine("chmestry: {0}", Chemestry) 
Console.WriteLine("physics: {O0}", Physics) 
Console.WriteLine("piolgy: {0}", Piolgy) 
Console.WriteLine("Total Degree: {0}", 7T) 


Console.WriteLine("Percent: {0}%", P) 
Console.WriteLine("Rating: {0}", Rating) 
Console.WriteLine("---------========-=-=-- "( 


ھکذا انتھى End Structure Jll‏ 
نأتی الى كيفيه استعماله 


كيف نستعمل الان هذا الهيكل فى الصب الرئيسى ؟ 
اق تا فى السب ال ر شس ااا أن تم له د رات الات وا ن كا 


Dim S As Student 
S.RealName = "Meko" 
S.Math = 20 
S.Physics = 12 
S.Chemestry = 15 
S.Piolgy = 20 
S.Display() 


ای قمنا بحجز مخزن نسخه من نوع الهيكل 
ثم اعطينا له القيم كما ترى الاسم ومجموع المواد 


* 


نم امرناه بان يعرضص مافی الصب Display‏ 
الذى قمنا بانشاءه فى الهيكل 


مارايك ان قمنا بالتعمق فى استخدام الاستراكشر اكثر من ذلك 

نجعله يستورد بياناته من قاعده بيانات للطلبه فى مدرسه معينه لنشعر بقیمه المثال! 
ونجعله يقوم بحساب المجاميع على اساس البيانات المسجله فى قاعده البيانات 
وبمجرد اننا نعطى له الاسم يرجع لنا بالمجموع الكلى والنسبه المئويه والتقدير 
اظن ان المثال كبير ولذيذ 

تابع معى... لنقوم بتطبيقه 


المثال الخامس:- 


قبل ان نقوم بالبدء فى المتال لابد ان نقوم بانشاء قاعده بیانات 

سوف نقوم بالشرح علی قاعدہ بیانات سیکوال سیرفر 

قمنا بانشاء قاعده البيانات من النوع سيكوال سيرفر 

تم قمنا بانشاء جدول بها وقمنا بتسجيل بيانات لبعض الطلبه فى مدرسه معينه 
وتسجیل درجاتهم فی بعض المواد 

كما ترى فى الصوره التاليه :- 


TAPTIANMALEK-PC.AGC - dbo.Student | 


ID RealName Math Chemistry Physics Piolg¥ 
أ‎ 1 Meko 2,00 3.00 4,00 50,00 
1 shafee 50,00 50.00 50,00 50.00 
3 Nour 53,00 EER 30.00 4.00 
4 salma 2,0 13.00 15.00 14.50 
3 Maram لاك ,44 51,00 لاد ,2ے 00 ,ك‎ 
5 Emari 50,00 52,00 S0,00 45,00 
7 Mahamed 3,00 لا ا‎ 50,00 41,00 
3 Yaser 4,00 33.00 .ك‎ 00 10.00 
3 Amera 50 33.00 14.00 38.00 


اسم قاعدہ البیانات ۸6€ 

Student Jودجlا اسم‎ 

فكره المثال 

نقوم باستدعاء مكتبه الادو ونقوم بعمل مخزن نسخه منها للاتصال بقاعده البيانات ونسخه للاتصال بالجدول كما 
قولنا من قبل فى الوحده السادسه 

ثم نقوم بانشاء الهيكل تماما كما فعلنا فى المثال السابق 

ولكن سنزيد عليه بعمل صب يقوم بالبحث فى قاعده البيانات عن الاسم المدخل من جهه المستخدم تابع معى .... 


نفس المثال السابق ولكن يزيد عنه انه متصلا بقاعده بيانات سيكوال سيرفر' 
Module module1‏ 

مخازن الاتصال بقاعده البيانات' 

Dim Cn As New ADODB.Connection 

Dim Rs As New ADODB. Recordset 


بدايه الهيكل' 

Structure Student 
مخازن الاسم ودرجات المواد'‎ 
Dim RealName As String 
Dim Math As Double 
Dim Physics As Double 
Dim Chemestry As Double 
Dim Piolgy As Double 


فانكشن يرجع بالمجموع الكلى للطالب' 
Function T() As Double‏ 

T = Math + Physics + Chemestry + Piolgy 
End Function 


فانكشن لحساب النسبه المئويه' 
Function P() As Double‏ 

P = (T() * 100) / 200 
End Function 


فانكشن لحساب التقدير' 

Function Rating() As String 
If P() < 50 Then Rating = "Drop" 
If P() >= 50 And P() < 60 Then Rating = "Passed" 
If P() >= 60 And P() < 80 Then Rating = "Good" 
If P() > 70 And P() > 80 Then Rating = "V.Good" 
If P() > 90 Then Rating = "Excellent" 

End Function 


صب لعرض النتائج على شاشه الكونسول' 

Sub Display() 
Console.WriteLine ("- === "( 
Console.WriteLine("RealName: {0}", RealName) 
Console.WriteLine("Math: {0}", Math) 
Console.WriteLine("chmestry: {0}", Chemestry) 
Console.WriteLine("physics: {0}", Physics) 
Console.WriteLine("piolgy: {0}", Piolgy) 
Console.WriteLine("Total Degree: {0}", T) 
Console.WriteLine("Percent: {0}%", P) 
Console.WriteLine("Rating: {0}", Rating) 
Console.WriteLine ("=== uuu "( 

End Sub 


Sub Find(ByVal Rname As String) 
Cn. Open("provider= SQLOLEDB; Initial 
Catalog=AGC; UID=Sa; Pwd=0124330708; Server=(Local)") 
Rs.Open("Sstudent", Cn, ADODB.CursorTypeEnum. adOpenDynamic, 
ADODB.LockTypeEnum. adLockBatchOptimistic) 


Rs.Find("RealName='" & Rname & " '") 
If Rs.EOF Or Rs.BOF Then 
Console.WriteLine("Name Not Found") 
Exit Sub 
End If 
RealName = Rs("RealName").Value 
Math = Rs("Math").Value 
Physics = Rs("physics").Value 
Chemestry = Rs("chemistry").Value 
Piolgy = Rs("piolgy").Value 
Display() 
Rs.Close() 
Cn.Close() 


End Sub 
End Structure 


Sub main() 


Dim S As Student 
Console.Write("Enter UR Name : ") 
Dim A As String = Console.ReadLine 
S.Find(A) 


Console. ReadKey() 
End Sub 
End Module 


فى المثال السابق 

اولا قمنا باستدعاء مكتبه الادو كما شرحنا مسبقا فى الوحده السادس لكى نستطيع ان نجعل الكونسول متصل مع 
قاعده البيانات. 

ثم قمنا بحجز مخزن نسخه من مكتبه الادو من النوع كونكشن فى منطقه التصريحات العامه ليقوم بالتوصيل بقاعده 
البيانات 

ومخزن اخر ليقوم بفتح الجدول الخاص ببيانات الطلبه 

کل هذا قبل الهیکل 


ثم قمنا بانشاء الهيكل 

يحتوى على مخازن من النوع العددى المزدوج والنصى لتحمل بيانات الطالب من حيث اسمه ودرجات مواده (تم 
شرحه فى المثال الثالث) 

ثم قمنا بانشا فانكشن يقوم بحساب المجموع الكلى (تم شرحه فى المثال الثالث) 

ثم قمنا بانشاء فانكشن يقوم بحساب النسبه المئويه (تم شرحه فى المثال الثالث) 

ثم قمنا بانشاء فانكشن يقوم بحساب التقدير (تم شرحه فى المثال الثالث) 

ثم قمنا بانشاء صب يقوم بعرض النتائج على شاشه الكونسول (تم شرحه فى المثال الرابع) 


Sub Find(ByVal Rname As String) رjخI ثم قمنا بانشاء صب‎ 

هذا الصب متال الفانكشن يحتوى على معامل نصى يعود يقوم باستقبال قيمه معينه (اسم الطالب) 

تابع معی شرح اکواد هذا لصب 

اولا يقوم بالاتصال بقاعده البيانات 

ثم يقوم بفتح الجدول 

ثم يقوم بعمل بحث داخل الجدول عن القيمه المحمله فى المعامل النصى(اسم الطالب) 

ByVal Rname As String 

فان لم يفلح البحث فى ايجاد الاسم المدخل له يعطى رساله على شاشه الكونسول تفيد بان الاسم غير موجود 
Console.WriteLine("Name Not Found")‏ 


راذا جد ھا بقع برضن ما یگل ستل من خقواا 

ای يضع درجات كل ماده من المواد الخاصه بالطالب 

فى المخزن المخصص لها فى الهيكل لتصبح المخازن محمله بمجموع درجات كل ماده من المواد 
ثم يقوم بالنداء على الصب رyة1مكذ0‏ 

الذى يقوم بعرض النتائج على الكونسول 

ثم يغلق الاتصال بقاعده البيانات والجدول 

هكذا قد قمنا بانشاء الهيكل 


یتبقی لنا کیفیه استعماله!! 
سوف تری سهوله استعماله وقله الاکواد فی استعماله فی الصب الرئيسى 
حتى انك ستشعر فى هذا المثال باهمیه الهیکله جداا١١١١١١١‏ تابع معى .... 


تحت الصب الرئيسى 
قمنا بحجز مخزن نسخه من الهيكل 


ثم امرنا الكونسول ان يطلب من المستخدم ان يدخل الاسم المراد عرض نتائجه من قاعده البيانات 
ثم قمنا بحجز مخزن نصى وامرناه ان يحمل القيمه المدخله من المستخدم 

ثم بعثنا مافى هذا المخزن 

الى الصب ۴1٣4‏ الذى بالهيكل ليقوم بعمل بحث فى قاعده البيانت عن القيمه 

ثم يرسلها لباقى الفانكشنات ليقوم كلا منها بعمله 


ملحوظه هامه!!! 
- قمنا بحجز المخازن ( التى تقوم بالاتصال بقاعده البيانات والجدول) فى منطقه التصريحات العامه 
لتعميمها واستعمال ذلك المخازن تحت اى صب واى مكان فى المشروع 


-فی الصب ۴1۸4 

قمنا باغلاق الجدول اولا مsئRs.€10‏ 

ثم قمنا باغلاق قاعده البيانات مsئ۸.€10")€‏ 

وذلك لانه لايجوز تقديم قفل قاعده البيانات على قفل الجدول لانك اذا غلقت القاعده البيانات اصبح الكونسول غير 
متصل بالقاعده اذا لا يستطيع التعامل معها ابدااا . 

اخى القارىء قمت بالتعليق على ذلك النقطه لانها من النقاط الهامه والدقيقه التى يقع الكثيرون من المبرمجين بها 
بدون ان يضعو لها بال والسبب الرئيسى ان اعلق عليها انى حين كنت اشرحها اخطأت بها فلذلك کان لابد ان 
احذرك منها 


انتهت الوحده الحاديه عشر 


الوحده الثانيه عشر:- 


فى هذه الوحده:- 

سوف نتعلم كيف نجعل الكمبيوتر يتحدث بمانريد 

کما تری فى بعض برامج الترجمه يتحدث البرنامج بالكلمه المكتوبه وانت تتخيل انها كلها عباره عن تسجيلات 
مدمجه مع البرنامج. 

والحقيقه ان البرنامج يستخدم الدانلa API Speech‏ 

فانه من الصعب ان يدمج مقطع صوتى لكل كلمات الانجلش مع البرنامج .....دعنا من الحديث 

فاا انتم که انامه ... 


المثال الاول:- 


يوضح كيفيه جعل الكمبيوتر يتحدث بكلمات معينه" 
Module Module1‏ 


Sub Main() 


Dim Sp As Object 
Sp = CreateObject ("SApI.Spvoice") 
Sp.Speak("I Love You AGC") 


End Sub 


End Module 


فى المثال السابق 

قمنا بحجز مخزن کأداه لنستدعی بهاداه معز ۷0م5 .1مSA‏ 

ثم امرنا هذا المخزن ان ينشأً هذه الاداه 
Sp = CreateObject("SApI.Spvoice™‏ 


من المعروف ان هذه الاداه فائدتها جعل الكمبيوتر يتحدث 
اذا اصبح المخزن 5۲ 
نسخه من هذه الاداه 
لذلك امرناه ان يتحدث بجمله معینه 
Sp.Speak("I Love You AGC"‏ 


اذا جعلنا الجهاز الان يتحدث بجمله ثابته 
فما رايك ان جعلناه یتحدث بکلمه نأمره بها ؟ 
تابع معی.... 


المثال الثانى 


مثال يوضح كيف نجعل الكمبيوتر يتحدث بما نأمره" 
Module Module1‏ 


Sub main() 
Dim Sp As Object 
Sp = CreateObject("SApI.Spvoice") 
Console.Write("Enter The Words U Like To Speech: ") 
Dim A As String = Console.ReadLine 
Sp.Speak(A) 

End Sub 


End Module 


فى المثال السابق 

قمنا بحجز مخزن کأداه لنستدعی بهاداه ع1 ۷0م؟ .1م5۸ 

ثم امرنا هذا المخزن ان ينشأً هذه الاداه 
Sp = CreateObject("SApI.Spvoice™"‏ 


من المعروف ان هذه الاداه فائدتها جعل الكمبيوتر يتحدث 
اذا اصبح المخزن SP‏ 
نسخه من هذه الاداه 


ثم امرنا الكونسول ان يطلب من المستخدم كتابه الجمله التى يريد ان يتحدب بها الكمبيوتر 
Console.Write("Enter The Words U Like To Speech: ")‏ 


ثم قمنا بحجز مخزن من النوع النصى وامرناه بحمل الجمله التى ادخلها المستخدم 
ليصبح المخزن النصى محملا بالجمله التى ادخلها المستخدم 

لذلك امرنا المخزن مك 

ان يتحدث بما يحمله المخزن النصى 


Dim A As String = Console.ReadLine 
Sp. Speak(A) 


قم بتطبيق المثال اولا 
ثم تابعی معى تطويره اكثره بطريقه الذ 


المثال الثالث:- 


فى هذه المثال 
سوف نتعلم کیف نقوم بعمل مکثبه 011 
کو ف النك ةر ته التو كن ر سف ل كف اتح اكد 


اولا لعمل مکتبه من النوع 011 
نقوم بفتح الفيجوال .نت ثم نختار نوع المشرو عل جlassLi6۲اC‏ 


الصوره التاليه توضح الخطوات 


30 Start Page - Microsoft Visual Studio (Administratö KEENE) 
File Edît View Debug Team Data Architecture Test Tools Analyze Window Help 
: 7 | # م |- © - وإ ها‎ | | lg 2C Bl I< + 


New Project 0 


Micrpsoft" [NET Framework 4 5 1 Sort by: [Default | Search Installed Templat j0 
OO ViSual Stu 


Installed Templates 


1 Type: Visual Basi 
. =Ve| Windows Forms Application Visual Basic [7) 3P ua wesle 
A Visual Basic 5 
Windows ہے‎ 
Web | (®) | WPF Application Visual Basic 


A project for creating a VB class library 
(dl) 


Connect To Team Fo 
Office 


Cloud a Console Application Visual Basic | 
E 
Reporting 
Open P a 
Ê EE SharePoint EsAlEese 
Silverlight 


Test 
we 1 SEES KEES نوع المشروع كما اتفقنا‎ 

: ق ا‎ E | Silverli Class Library ei 

ر 1 

El project Visual C# | 1 


Visual C++ e ٤ 
3 project Visual Fê Silverlight Class Library Visual Basic 


project Other Project Types 
2 WindowsAp plication! Database 
3 Ene Modelina Proiects + 


9 TestEncLibrary 


El TestEncLibrary Name: ۶£ اسم آلمشرو‎  ClsLibran1 Ab 
3 Encl ibrary1 e اسار ال‎ CN Users\ Captian Malek\Desktop’, ا‎ | | Browse... 


3 WindowsApplicationil Solution name: ClassLibraryl [¥] Create directory for solution 
[ Î Add to source control 


[¥] Close page after project loa lee ie ncel 
[¥] Show page on startup 


E Error List 


Recent Projects 


ds a WCF Service Application Visual Basic 


vi 
8 ASP.NET Dynamic Data Entities... Visual Basic 
Online Templates 


الخطوه الاولى : قمنا بفتح مشروع جديد 
الخطوه الثانيه : نختار نوع المشروع 


الخطوه الرابعه : نقوم بالموافقه ()0)وفتح المشروع 


انظر شكل المشروع بعد فتحه 


- Microsc io (Adm tor 


File Edit View Project Build Debug Team Data Architecture Test Tools Analyze Window Help 


E | F Deus XAT MEM, 


هنا يكون كتابه اللاكواد المراده 


LEnd Class 


عند فتح المشروع نجد Public Class Class1‏ 
فان 551ا سيكون اسم المكتبه فيمكن لا أن تقوم بتغير هذا الأمنم ونضع الاسم المراد 


هيا بنا الان نقوم بكتابه الاكواد وتغير اسم المكتبه 


مثال يوضح کیفیه عمل مکتبه 
Public Class SpeekVoice‏ 


Sub Speak(ByVal Msg As String) 
Dim Sp As Object 
Sp = CreateObject("SApI.Spvoice") 
Sp.Speak (Msg) 

End Sub 


End Class 


فى المثال السابق 


قمنا بتغيير اسم المكتبه SpeekVoice ”١J|‏ 

ثم قمنا بعمل صب بالاسم kھعم؟‏ یحتوی على معامل نصی بالاسم چئ 
ليستقبل القيمه التى ادخلها المستخدم 

ثم قومنا بعمل باقی کود التحدث کما شرحنا سابقا 


هكذا قد قمنا بالانتهاء من عمل المكتبه 


نضع المكتبه اولا فى ال عءهاعمR‏ من قائمه الادوات 
ثم من القائمه الرئيسيه للفيجوال نختار 
Build >> Build Class Library1‏ 


هذه صوره توضيحيه للخطوات السابقه 
"SUal Studia [Adminstrator]‏ 


e 


Debuqg Team Data Architecture Test 1| 


RF 


اا ببناء المكتبه بنجاح ونستطيع استعمالها تحت الفيجوال فى اى وقت 

ومكان المكتبه الان اصبح فى مجلد المشروع فى المجلد مأطثم داخل المجلد عيام 

انظر الصوره التاليه 

GO lk > Ceslibran1 + Cesslibreyt » bin Rese o [# 


File Edit View Tools Help 


Organize w E] Open with... Share with w New folder 
E Name 4 Date modified Type Size 
Wl Desktop ا8‎ ClassLibrary1.dll 1 + Application EXENS,., 15 KB 
E Downloads 2 a55 LIEB) : 2 , PDB File 36 KE 
El Recent Places &| ClassLibrary1 ا‎ 1-12 XML Document 1 KB 
Î Libraries هذا هو ملف المكتبة الذى سوف نستخدمه‎ 
&| Documents 
ا‎ Music 
| Pictures 
E Videos 


9 Homegroup 


تعالی بنا نتعرف على کیفیه استخدامها مع ای مشروع جدید 

تابع معی... 

نفتح ای مشروع جدید بای نوع نرید 

ثم نقوم اولا باستدعاء المكتبه وذلك من خلال القائمه الرئيسيه 

Project>> AddRefre nce >> Browse >> رlتخig نحدد مكان المکتب4‎ 


هذه صوره توضيحيه لاستدعاء المكتبه 


File Edît View! Build Debug Team Data Architecture Test Tools Analyze Window Help 
> اھ لا‎ | Add Windows Form... aR E mL 

IT ق‎ Add User Control... 

i Add Component... 

ê] Add Module... 

Aş Add Class... 

i] Add New Item... Ctrl+Shift+A 

iil Add Bisting Kem... Shift+ Alt+A 


1 Lookin: jj Relase < GF FF Br” 


# 1 Exclude From Project 


1 Modulel.vb™ 
Î (General) 


NET [COM [Projects | Browse Recent 


Name Date modified Type Siz 


o __ShowAll Files 


i Add Reference... | 


dd Service Referencê,.. 


| &| ClassLibrary1.dll +1118 ۾‎ «T1 Application extens... 


| project Properties... 


4 | INL ۴ 
File name: Class Library’ wr 
Files of type: | Component Files (dll; tlb;*.olb;? ocx; exe; manifest) 5 | 

کے 
FA‏ 


ا“ 


100% =4 ٢ 


بعد ما انتعیتا المکته پٹبقی نا کیفیه اسکخدامها بالاکو اد 
تابع .. 


Sub Main() 
Dim M As New ClassLibrary1.SpeekVoice 
Console.Write("Enter Your Words ") 
Dim N As String = Console.ReadLine 
M.Speak(N) 
End Sub 


فى الكود السابق 

بعدما قمنا باستدعاء المكتبه 

قمنا بحجز مخزن ۷| نسخه من المكتبه الى قمنا بانشائها سابقا 
Dim M As New ClassLibrary1. SpeekVoice‏ 
فان 110۲2۲۷1ءءها٤‏ هو اسم مشروع المكتبه السابقه لم اقم بتغيره 
و ¡٥‏ )عم هو اسم المکتبه نفسھا الذی قمنا بتغییره سویا 


بعدما قمنا بحجز مخزن نسخه من المكتبه 
امرنا الكونسول ان يطلب من المستخدم ان يكتب الكلمات المراد ان يتحدث بها الكمبيوتر 
Console.Write("Enter Your Words "‏ 


ثم قمنا بانشاء مخزن نصى وامرناه بحمل القيمه المدخله 
Dim N As String = Console.ReadLine‏ 


ثم امرناه ان يرسلها للصب )eaمpكالذى‏ انشئناه فی المكتبه سابقا 
ليرسل القيمه الى معامله چئ 


فيتحدث بها 


هذه كانت فكره المكتبه 

وللعلم انها من افضل الطرق التى يتعامل بها مجموعات العمل 

ليعمل كل شخص فى مجموعه العمل على انشاء مكتبه تقوم بعمل جزء معين من برنامج 
والاخر يقوم بانشاء مكتبه اخرى تقوم بعمل حزء معين من البرنامج 

ثم يتم تجميع ذلك المكتبات فى البرنامج 

ويتكون المشروع 


EASY BOOK IN FRAMEWORK 


المشروع الأول : 
تصميم برنامج تحت الدوس يقوم بتشفير الرسائل وفكها 
وتدمير الملفات واعادتها لطبيعتها 


المشروع الثانى 
تصميم برنامج يقوم بالاتصال بقاعده البيانات ويكون هو المتحكم الوحيد فى هذه القاعده اى يقوم بتشفيرها 
وان يقوم بحساب درجات طلاب الثانويه العامه والنسبه المئويه لهم والتقدير العام وايضا الكليات المتاحه 


المشروع الثالث" 
انشاء مکتبه تقوم بأی وظیفه معینه 
لك الاختيار فى وظائف هذه المكتبه 


ايضا ان خطر ببالك فكره اى مشروع اخرى قم بمراسلتنا عبر الايميل لتقييم المشروع 
Captian.Malek@ Gmail.com‏ 


اعلم اخى القارىء 

انك اذا قمت بتطبيق المشاريع المطلوبه منك اعلاه 

انلك فهمت الكورس فهما جيدا 

وفی حاله وجود ای عائق فی تطبیق مثال معین 

او كود معين قم بمراسلتنا ايضا عبر الايميل وسوف نجيبك على كل الاستفسارات .. 


فى انتظار تقيماتكم للكتاب عبر الايميل لنبدأ فى الجزء الثانى 


بالتوفيق والنجا 
قام بكتابه وتأليف الكتاب قام بالمراجعه والتصحيح 
المهندس/مالك صابر محمد الاستاذ/ عبدالله صابر محمد 
الكتاب مسجل بدار النشر 


والحقوق محفوظه ولا يسمح ابدا بنسخ الكتاب او التعديل عليه منعا للتعرض للمسائل القانونيه 


